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BANCOS DE DADOS: 

novo recurso para os usuarios de micros 

MBDADOS - Listagem completa 
de urn SGBD para TRS-80 

ASSEMBLER - Programa^o 
e manipuiacao de video 
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A SYSDATA GANHA 

DINHEIRO FAZENDO 

MICROCOMPUTADORES 

COMO O SYSDATA IIL 

ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDO. 



SYSDATA III 

Aqui, tudo o que Voce espera 

de uni grande micro, 

CampBtfvel com n TRS-^G 
Modelo irr da Radio Shack. 
Cablneto, teclado e CPU em 
m>6dulDS independentes. 
Vers&os de 64 a ]2» KBytes de 
RAM, 10 KBytes de ROM. 
TbcEadoprDrissionEi] com 
num^rico redu^Jdo e 4 ledas 
de fungoBS. 

Sistema operficional de disco 
DOS III on CPfM2.Z. 
Ca iracteretf grd fi cos. 
Vldea compostocom 18 MHTi 
de faixa de passaKem. 
Satda para imprcssora 
pa rale) a. 

SYSDATA ril 







variada Escolha o seu. 

Videotex to [TELtSPj. 

ProiotoCirandao 

[EMBRATELJ. 

KododolQlQK. 

SislomQCerenciadorde 

Banco de Dados [SGBD], 

DBASEII. 

Compiladores Cobal, 

Porlran, Pascal, Basic, Fortti. 

LispcPMct 

Editor do i«xtD$< Editor de Assembler. 

DESBsseinblador. 

Dabu^dor- 

Visicalc. 

Wordstar, 

emuitosoutns. 
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SYSDATA III 

CaracteHsticas tdcnicas, 

Paxa aqueLes que querem 

saber tudo. 

Ibial conipatibilidadQ cnm Q 

TRS^BO Modelo in da Radio 

Shack. 

Ptocessa dor Z-ftO-A . 

Video de le X 64 ou 16 x 32 

(linhasxcolunas]. 

ASimenlacao de 110 V ou 22t) V. 

'I^clado alfanum^rico de 

69 Eeclas. 

Ted ado numdrico reduztdo 

com 4 leclas de fungaes. 

Cr^ Ticos com 1 28 x 46 po ntos 

no videoL 

Aceila al6 duas RS-232-C 

(Sincronas am AssincronasJ. 

Modem [ot>ci[>nAl|. 

Safda paralela para 

impresiiurar 

PlacB contra Eadora paraat£ 

4drlvesde3e 1M". dupla 

densid ade [160 KBytes por 

FacG), TacGsimplos id up la J^ce 

opcional}. 

Op^s futurast 

Vfdeocompattvel 16 5(64, 

16x32, 24 X SO DU 24x40 

(linhas Kcoluns:^). 

Expan jSo a [^ 2 56 K B ytea 

de RAM. 

Alia resDJugio gr^Hca e cor. 

I n Eerface pa ra aciona men to de disco rigido 

(Winchester) de S, tO ou 20 M Bytes. 

Clock dobrado [4,0 MHZ). 

Iblal CDinpatihilidade com o TRS-60 

Mod. IV 
CP/Mversao3.0, 
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BANCOS DE DADOS 

Sobre esse tema, MS publica urn conjunto de 
artigos e uma reportagem: 



16 
20 



BANCOS DE DADOS: UTILIZAgAO 
CRESCENTE EM MICROS 



A QUESTAO DA PRIVACIDADE - 

Artigo de Luzia Portinari Greggio 



/>Q MICROS MAIS PR6XIMOS DAS 
JO BASES DEINFORMACOES- 

Reportagem 
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A LOGICA NA PROGRAMA^AO - 

Artigo de Jorge da Cunha Pereira Filho 



A Q ADMINISTRA^AO DE DADOS E OS 
40 MICROS - Artigo de Antonio L. 
Furtado e Daniel A. Menasce 




^avm gerente prAtico em banco 

L^ DE DADOS - Para completar o "bloco" 
de Bancos de Dados, Ivan Camilo da Cruz 
apresenta a listagem completa de um SGBD 
para os usuarios de TRS-80, explicando, ponto 
por ponto, como utilizi-lo. 



SUM TOQUE DE ELEGANCIA EM 
SEUS PROGRAMAS - Para a linha 
Sinclair, um programa de Alberto M. C. 
Sarabando. 
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CA BANCO DE SOFTWARE - Nesse novo 

3^ espago, os programas menores e mais 
simples terao seu lugar garantido em MS. 
Nessa edi^ao, temos: 

• ALGARISMOS ROMANOS 

• FUJA... ENQUANTO E TEMPO! 

• GALAXY 

• JUROS DESCONTADOS 

• MIRE CERTO E... GOLF! 
•SUPER TELA 



£/% MANIPULAgAO DE VIDEO EM 
3Z ASSEMBLER - Artigo de Mario Jose 
Bittencourt, para a linha Sinclair. 



^/- FLASH! ASSEMBLER, GRAFICOS E 
00 MUITA IMAGINACAO - Programa de 
Roberto Quito de Sant'Anna, para a linha 
TRS-80. 
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-jr^sla edigao de MICRO SISTEMAS (rata de urn assunto que vem sendo 
#y muiio badalado ultimamente, inclusive no meio dos usudrios pessoais. 
■ -^ Sao OS Bancos de Dados que, com a entrada no ar do Cirandao, 
tornam realidade para o uso domestico as perspectivas de acesso afontes 
complementares de informagaa 

Aproveitamos a oportunidade, tamb^m, para f alar sobre os 
administradores de dados, isto e, os sistemas que gerenciam as Bases de 
Dados, no caso as criadas em microcompu [adores. Neste particular, muitas 
vezes o tema torna-se confuso, visto exislirem no mercado dezenas de 
produtos, entre nacionais e norte-americanos calegorizados como Data- 
Bases; Bancos de Dados; SGBD (Sistemas Gerenciadores de Bancos de 
Dados); DBMS (DataBase Management Systems) ou nomes semelhantes. De 
quebra, os usudrios de equipamentos compativeis com o TRS-80 modelo III 
poderao contar com um programa de alia qualidade- um SGBD 
desenvolvido por nosso colaborador Ivan Camilo Cruz. 

Registramos, ainda, nosso prazer em contar neste ntimero com a 
presenga de quatro profissionais de peso nas pdginas de MS: sao eles os 
professores Antonio Furtado e Daniel Menasce, da PUC-RJ, ambos 
profundos conhecedores da materia Banco de Dados; o professor Jorge da 
Cunha Pereira Filho, ativo participante do mercado editorial, com diversos 
ti'tulos publicados na area de Informdtica, e nossa companheira Luzia 
Portinari Greggio, da revista Informdtica & Administragdo e membro da 
Diretoria da Andei, que aqui escreve sobre as questoes da privacidade do 
cidadda 

Todo este material foi cuidadosamente reunido para que nossos leitores 
possam, de uma vez, entender todos os detalhes desta aplicagao em micros, 
atualizandO'Se sobre os produtos e servigos encontrados no mercado 
brasileira 

• Tambem nesta edigao inauguramos um novo espago, o BANCO DE 
SOFTWARE, ou simplesmente Banca O objetivo desta area sera alocar os 
programas menores e mais simples com uma preocupagdo, tamo no aspecto 
visual quanta no texto, de melhor utilizar nosso espago fi'sico, desta forma 
possibilitando uma revista mats dinamica e uma maior rapidez na veiculagdo 
do grande volume de material de qualidade que nos chega. Vale dizer que no 
niimero anterior nos referimos a nova segdo como Buffer, porem 
posteriormente admitimos que Banco seria um nome mais objetivo Assim, 
ficamos aguardando opinioes e sugestoes. 

• Para finalizar, gostan'amos de dividir com nossos amigos a alegria por 
nossa colega Graga Santos ter recebido o premio Imprensa Andei/ Novadata 
por seu trabalho "Editores de Texto", publicado em nossa edigao de 
setembro de 84. Consideramos o premio um justo reconhecimento pelo 
trabalho de equipe que temos desenvolvido nos ultimos anos, visando levar 
a voce uma MS cada vez melhor. 
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A Compumicro 

vai deixar voce 

com a melhor 

impressao 

doUnitronAPn 



Nao existc nada mais 
pessoal do que uma Impressao 
digital. Ela e unica. Ninguem 
tern igual. O mcsmo acontece 
quando voce compra o scu 
UNITRON AP II na 
COMPUMICRO. 

Aqui voce tcm um atendi- 
mento personalizado c exclusive. 

O que este atendimento 
tcm de exclusivo? E que na 
COMPUMICRO voce tcm todas 
as informagoes do produto 
antes mesmo da compra. Ou 
scja. nossa equipe de analistas, 



Veiiliii assistir a Lima dcint JiistragTu ) do 
I iniiron acessaiick ) mai.s tic* 3*)<) fxincos 
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• I»K(5ir!T()(:iR\NI>A()[)AKMIi!tVIB. 
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• Ti<ANSM{W-N(:iAT( )T,\I. I )I-: .'\K(,)1 iXOS 

E>rntEorNmi().M; IBM K;t:oMi'ATi\i-is. 
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todos de nivel superior, estu- 
da o seu caso c indica-Ihe a 
melhor configuragao para as 
suas necessidades. Se voce nao 
puder vir ao nosso escritorio, 
onde sera recebido com todo 
conforto e tera a sua disposi- 
gao um analista com todo o 
tempo disponivel para 
mostrar-Ihc o produto, nos irc- 
mos ate voce. E apos a compra 
continuamos oferecendo nossa 
assessoria, prestando-lhe assis- 
tencia tccnica, etc... 

E sabe quanto voce paga 
a mais por isso? Nada. 

Venha comprovar. 
Estamos esperando por voce. 

Pessoalmente. 
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O tortaado dette mfis, qua recebari uma 
atsmatura de um ano da MIC RO SISTEM AS, 
6 Onofre Junior deSouzs.daMinas Gerait. 
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PIRATASA VISTA 



Leitor assfduo de MICRO SISTEMAS, 
conceituadfssima revista, venho atrw^s des- 
ta informar ao colega e colaborador Hendy 
Takeshi Yabiku (MS n9 28, p^. 18: Cido- 
tron: supere esta barral) que o seu programa 
Cidotron foi pirateado. O autor de tal fa- 
(anha 6 um aluno do Col^gio Objetivo: 
Eduardo Forner. 

Aproveitando-se do software alheio, usou 
como vefculo o jornal A cabepa, do pr6- 
prio col^io, para editar o programa em que 
ele se diz autor. Na c6pia do programa, ele 
simplesmente tirou as iinhas de 1 at^ 50, e 
de 1 000 a 2000, que sSb explicagdes e limi- 
tes de pontos. Nas Iinhas 200 e 300, a va- 
ridvel P foi modificada para 500, e nas Ii- 
nhas 400 e 450, o GOTO 20 foi transfor- 
mado em GOTO 50 e o lafo diminu fdo, 

Como a equipe de MS sabe que 6 impos- 
sfvel dois programas safrem rguais at6 no nu- 
mero das Iinhas, estS bem claro que Eduar- 
do Forner n3b passa de mais um pirata. Pe- 
diria a vocfis que agissem de forma drSsti- 
C3, pois na p^ina do Editorial estd escrito 



que "todos os direitos de reprodu^ffo do 
conteudo da revista estffo resarvados equal- 
quer reproduc^o, com finalidade comercial 
ou nSo, s6 poderS ser feita mediante auto- 
riza^S'o previa". 

Sei tamb^m que^ impossfvel MS mandar 
a marinha brssileira atrds destes piratas, mas 
se cada leitor fizer a sua parte, j^ serd de 
grande valia para o contfnuo progresso da 
InformStica brasileira, nSb somente entra- 
gando os piratas, mas colaborando, opinan- 
do e sugerindo idSias. 
Marco Aurdlio A. C. Silva 
GoiSnia-GO 

Bom, antes de mais nada, queremos agra- 
decer por sua presta^So de servigo, Marco. 
SSo pesioas como vocS que nos fazem acre- 
ditar em um horizonte mais claro para o 
software nacior)al. Para vocS imaginar a tur- 
bu/Sncia que exists nesta ^rea, recentemente 
constatamos que diversos programas publi- 
cades em MS estavam sendo comercializa- 
dos am fits K-7, sem que dtassem sequer a 
fonte ou OS verdadeiros autoresl Rea/mente, 
nSo hd forqa naval que passa combater a fal- 
ta de 4tica e de respeito d verdade. Estes fa- 
tes ajudam a demonstrar que a questSo dos 
direitos autorais na produqSo de software 
nSd estil restrita somente a uma legislagSo 
especi'fica, mas tamb^m a uma nogSo ele- 
mentar de princi'pio mora/] Mas vamos del- 
xar que as providSncias cabiveis sigam pelo 
caminho pertinente. 

Quanto 4 sua carta, remetemos uma c6- 
pia para o Col^gio Objetivo e outra para o 
autor, nosso amigo Hendy Takeshi. At^ o 
momenta nSo recebemos nenhum comuni- 
cado do Col^gio, mas recebemos a opiniSo 
do Hendy, que a seguir transcrevemos: 

"Nosso colega Marco Aur4lio est^ do 



nosso lado, assim como muitos outros lei- 
tores de MS. Mas, infelizmente, existem 
muitos piratas (e plagiadores) prontos para 
atacar ao nosso manor descuido. Mas exis- 
tem leis para nos proteger. 

Talvez a pessoa responsive! por este ato 
estiipido (nSo vejo outro termo) nSo estaj'a 
em seu Jufzo perfeito: querendo dar uma de 
inteligente, acabou mostrando que 4 com- 
pletamente ignoranta. e nSo teve miolos su- 
fidentes para desenvolver um programa, 
nem para pensar nas possfveis conseqiiSn- 
das que aste ato poderia trazer. A estas pes- 
soas, o meu desprezo. Ao Marco Aur^lio, 
meus mais sinceros agradedmentos. " 
Hendy Takeshi Yabiku 
SSo Paulo-SP 
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Parab^ns pela MS, Um especial para- 
bfins i Rodada MS e ao colega PYIDWM- 
Quito: estou gostando muito. Pena que a 
Rodada MS do n9 33: Arquivo de comu- 
nicados, nSo foi para a linha Sinclair (tenho 
um TK-S5 e cada um puxa a sardinha para 
o seu lado . . . Ser^ que nao d^ para adaptar 
o programs da Rodada MS n9 33, do Al- 
cione Sperandio, para o TK? 

Muito bons OS programas Aventuras na 
salva e Aventuras em Serra Pelade. Conti- 
nuem. (Consegui sair da se/fa depois de uma 
semana, mas no Serra Pelade ainda nSo con- 
segui achar a pepita, apesar de ter modlfi- 
cado a a^So 84. A dica seria garimpar na 
terceira hora do dia 11?) 

No programa Penosa travessia (MS nP 
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SERVIQO 
AO ASSINANTE 



AssJnale com um x a sua oppSb 
ASSINATURAS: 

DNOVA DRENOVAgAO 

Para novas assinaturas, preencha o cupom anexo. 
Para renovapSio, basta colar a etiqueta que acom- 
panha a sua revista no espapo reservado sobre o 
cupom. Em ambos os casos, remeta, juntamente 
com o cupom, e/ou etiqueta um cheque nominal h 
ATI EDITORA LTDA. no valor de Cr$ 39.000,00 
para os nossos escrit6rios no Rio de Janeiro ou Sao 
Paulo. 

D MUDANpA DE ENDEREQO 

Preencha o cupom ao lado com o novo endere- 
Qo e cole no espa^o acima a etrqueta que acompa- 
nha a sua revista. Remeta-nos, para os enderepos 
abaixo. 



Em caso de mudariQa de enderego ou 

renovapao de assinatura, cole aqui, 

etiqueta de enderepamento. 



Nome: 



Enderego: 
Cidade: _ 
Estado: _ 



CEP: 



Am I 



' AnAliM, Taleprocessamanto e 

Inlomiaiica Editora Lida 



SAO PAULO - Rua Oliveira Dias, 153, CEP: 01043, Tels.: (Oil) 853-7758 e 881 -5668 

RIO DE JANEIRO - Av. Pres. Wilson, 165 -Gr. 1210/16, CEP:20030, Tels.: (021) 262-5259 e 262-6437 



28, pig. 54}, as alterapSes do leitor Ronaldo 
L. Burgatti (publicadas na Se<;?o Cartas de 
MS n9 33) n$o fundonaram. Fiz as seguin- 
tes modifica^oese foi batata: 
15 FOR F= 1 TO 57 
17PRINT" ";CHRSM;" •"; 
34 PRINT ATA, B; "$"; ATA.B; " "; 
48 GOSUB 29 

Por fim, gostaria de direr que pref iro ver 
em MS programas aplicativos ou entSo jogos 
do tipo que citei anteriormente. 
Jos^ Reynaldoda Fonseca (PY2vlRF) 
Avar6-SP 

Primeiramente, a equipe agradece os elo- 
gios B o PYWWM-Quito aproveita para Ihe 
mandar um forte 73. Agora, com rela^So i 
conversSo do programa Arquivo de comuni- 
cados, devemos Ihe informar que: analisando 
o espaco disponlvel em nossa revista, e cons- 
tatando que somos uma equipe pequena fa- 
ce ao desenvolvimento acelerado de MS, de- 
cidimos que MICRO SISTEMAS evitar4, 
dentro do possivel, fazer adaptagOes e con- 
versdes de programas yrf publicados. Resol- 
vemos, desta forma, dar prioridade absolute 
is criagdes realments originals. £ interessan- 
te frisar que esta decisSo foi tomada, em 
grande parte, a partir das sugestffes e coloca- 
gdes da maioria dos nossos leitores. De qual- 
quer forma, deixamos aqui registrada a sua 
sugestSd. 

Com referSncia ao programa Aventuras 
em Serra Pelada, para n^oerfraffsro espfrito 
do Jogo, vamos Ihe dar somente esta dica 
(nao teria nenhuma gra^a se entreg^ssemos o 
ouro ao bandido, nSo acha?}: garimpe sem- 
ore, insista que nSo hi erro, al4m do citado 
na acSo 84, conforme publicamos na SagSo 
Cartas de MS n? 33. Por ultimo, agradece- 



mos por nos enviar as suas modificagOes pa- 
ra o Penosa travessia: obrigada a escnva 
sempra. 



ramente com relagSo a este assunto. D6 uma 
lida, ok? 



ESQUEMA E HOBBY 



7 



Z 



sugestOes 



7 



Sou proprietSrio de um TK-82C (com 
expansdfo de 16 K) e venho acompanhando 
o projeto MICRO BUG, o qual tenho gosta- 
do muito, principalmente pela forma com 
que vem sendo apresentado. Meus para- 
b^ns pelo beli'ssimo trabalho do CPD de 
MICRO SISTEMAS: com o MICRO BUG 
meu TK ficou mais poderoso. 

Gostaria tamb^m de estudar o hardware 
do meu equipamento, por isso, pepo-lhes 
que me informem aonde posso conseguir o 
esquema interno do TK, pois no manual 
existe apenas uma foto da parte interna do 
computador. 
Onofre J6nior de Souza 
Beio Horizonte-MG 



Desculpe-nos, Onofre, mas nSo temos co- 
mo auxiH4-lo. Em nossa Segffo de Cartas de 
MS n9 34, publicamos ume carta que nos 
pedia a mesma coisa. E 14 tamb4m afirmi- 
vamos que nSo ti'nhamos como fornecer 
uma informapSb que dependia exdusiva- 
mente dos fabricantes de microcomputa- 
dores. Infelizmente, at4 o momenta, os fa-, 
bricantes nSo mudaram a sua polftica de res- 
trigSo de informagdes aas usu4rios e velcu- 
las especializados, conforme pode ser veri- 
ficado em nossa repartagem sobre Hobbys- 
tas Ipublicada em MS n9 37, p4g. 12), 
onde alguns fabricantes se posicionam da- 



Pretendo fazer dues sugest6es, que con- 
sidero uma modesta contribuifffo para me- 
Ihorar ainda mais esta insepar*/el revista (e 
espero que seja logo atendido): publiquem 
mais jogos, muitos jogos para a gente se dis- 
trair bastante, pois, afinal, ningu^m 6 de fer- 
ro! Mas nSo 6 s6 esta nSo (isso para vocfis 
verem que eu tamb^m gosto de assuntos s6- 
rios), gostaria tamb^m de ver em MS artigos 
abordando alguns temas do momento: redes 
locais, teleprocessamento, modems, banco 
de dados... 

Jesuino Cavalcanti Dimas 
Porto Alegre-RS 



Apreciaria muito se MICRO SISTEMAS 
publicasse uma edipS'o especialmente voltada 
para dr^ de Telecomunica^des, pois sinto 
ta\ta deste tipo de informagS'o, visto que a 
cada dia cresce o numero de aplica^des liga- 
das is ComunrcaQfies e d Inform^tica. 
Fdbio Lucena de Souza 
Botucatu-SP 



Envie suas corresporKJAncias para: ATI — 
Anilise, Teleprocessamento a Informitica 
Editora Ltda., Av. Pretidente Wilson, 
165/gr. 1210, Centro, Rio de Jsneiro/RJ, 
CEP 20030, Se^So Cartas/Reda^So 
MICRO SISTEMAS. 



A GUARDIAN GARANTE 
ENERGIA AlODA PROVA 




GERADOR ELETRONICO GERATRON: 

A PROVA OE FAUAS. 

Fornece energta para microcomputado- 
res da linha Apple e TRS-80. em casos 
deemerggncia. Capacidade de 200 VA, 
com autonomia de at6 90 minutos, 

estabilizadores de tensAo 
guardian: a prova de 
flutuaqdes e transientes. 

Ultra-rapidos, protegemo seu CPO con- 
tra variagtes da rede em at6 +22% ees- 
tabilizam a saida em + 1% . Incorporam 
filtro na entrada, transformador isolador 
e chavede transferencia paraa rede. Ca- 
pacidade deO,25 KVAa 100 KVA. 



SISTEMA no break GUARDIAN: 
ATODAPROVA. 

E a soiu(^o mais completa contra tran- 
sientes, flutuagOes e falla total de ener- 
gia. A Linha B^sica varia de 2,5 KVA a 
100 KVA. DispOe de chave eslStica de 
saida e utiliza tficnica de sintese da for- 
ma de onda senoidal. com tlristores. 
A Linha Econflmica 6 a solugao para 
CPO's de pequeno porte, com capacida- 
de de 0.25 KVA a 5 KVA. 
Nao deixe que a mi qualidade da energia 
el6trica estrague os seus programas. 
Ligue agora mesmo para a Guardian. 





GUARDIAN 



Equipamentos EletrAnicos Ltda. 

Rua Dr Gamier, 579 

Rio de Janeiro -CEP 20 971 

Rio PABX (021) 261-6458 - (021) 201-0195 

Telex {021)34 016 
S3o Paulo: (011)270-3175 

REPRESENTANTES EM TODO BRASIL 



Geratron' 



Estabilizadores de tensSo 



SIstemas No Break 



A falta de uma boa apresentagao pode comprometer um 
otimo trabalho, nao acham? Com essas duas rotinas para 
micros Sinclair este problema esta resolvido 



Um toque de elegancia 
em seus programas 



Alberto M. C. Sarabando. 



Com o passar do tempo percebe- 
mos que um bom programa pre- 
cisa tambem de uma boa apre- 
senta9ao. Com figuras elucida- 
tivas, t j'tulos grandes e marcantes, instru- 
fSes adequadas de manipula9ao, efeitos 
bonitos. enfim, uma produ9ao elegante, 
Tudo isso causa um impacto visual ac 
usuario do programa, o que provoca, na- 
turalmente, raaior interesse. 

Temos notado que bonitas apresenta- 
56es funcionam como a capa de uma re- 
vista. aspecto de uma pessoa ou a fa- 
chada de uma casa. Paia que algu^m se- 
ja levado a entrar em um programa pre- 
cisa estar satisfeito com sua aparencia 
externa. Nao h^ nada mais infeliz que 
um programa bem elaborado, mas com 
uma apresenta^ao pobre, sem criativida- 
de. 

Criar ilustra9oes e editar textos em 
um micro da linha Sinclair exige muita 
dedica9ao e paciencda. Para se elaborar 
uma apresentajad atraente deve-se im- 
primir caracteres na tela que formem 
figuras harmoniosas, ti'tulos bonitos e 
frases bem colocadas, Mas para isso ha- 
veri muito a fazer. programador dis- 
pensara horas de trabalho criando os de- 
senhos, centralizando-os na tela. Deveri 
verificar os tamanhos e tipos de letras 
dos ti'tulos, armar as frases, separ^-ias 
com espa^os distintos etc. H^ uma infi- 
nidade de outras pequenas tarefas que 
um usu^o deve se habituar. 

Alguns programadores, geralmente. 
fazem um rascunho em papel quadricu- 



lado a parte para s6 entao utilizar os co- 
mandos do micro e tomar real a sua obra 
na tela, com as correfoes necessarias de- 
pois de verificar os efeitos de video. 

Foi pensando nessas dificuldades que 
elaboramos este programa, que auxilia o 
usuario a criar interessantes efeitos de 
tela e bonitas apresenta96es, com extre- 
ma facilidade e rapidez, sem necessidade 
de esbofos em papel ^ parte. Ele poder^ 
usar diretamente o video e gravar a apre- 
senta9ao (tela) em qualquer programa 
que quiser. como veremos mais adiante. 

USANDO TODO O EQUIPAMENTO 

A partir de agora voce tera a seu dls- 
por uma sdrie de artiffcios, t^cnicas pr^- 
ticas e velocidade de programa9ao que a 
linguagem Assembler proporciona. E 
nSo pode im^nar a utilidade do progra- 
ma, que desenhari na tela em todas as 
dire96es, com a rapidez que desejar, im- 
primindo qualquer um dos caracteres do 
teclado, inclusive em modo grifico no 
video. Havera ainda instru9Qes auxilia- 
res, como cursores, apagadores de erros, 
inversao de video etc. 

Al^m de tudo esse programa ficaii 
protegido no topo da mem6ria, o que 
Ihe dari liberdade de ler um outro pro- 
grama da fita cassete, criar uma ou mais 
imagens conforme desejar, grav^-lo jun- 
to com essas imagens, ler outro progra- 
ma e repetir tudo de novo, que a rotina 
em Assembler nao ser4 afetada. 



A grava9ao criada por voce serd em 
forma de matriz no sistema BASIC. As- 
sim, nao sera necessario nenhum outro 
comando al^m de um simples PRINT, e 
a impressao surgira na tela. programa 
e armazenado em matriz, per exemplo, 
DIM AS, DIM BS, DIM CS etc. e sera 
chamado por PRINT AS, PRINT B$, 
PRINT CS... 

Um outro aspecto € necessdrio desta- 
car: e quanto a economia de memdria 
que este programa proporciona. O arma- 
zenamento em uma matriz e mais econo- 
mico que utilizar as linhas com PRINT 
e PLOT para formar a mesma tela. 

PROTECAO DO PROGRAMA 

Fimcionando totalmente em lingua- 
gem Assembler, ele € digitado para uma 
Unha REM e com uma simples instru9ao 
ficara protegido acima da RAM TOP 
(MENTOP). Ao mesmo tempo, dara um 
comando NEW em toda a memoria do 
micro que. para todos os efeitos, pensara 
que nao armazena nenhum programa na- 
quele memento. Por esse motivo, voce 
poderd ler outro programa, grava-lo ou 
apaga-lo quantas vezes quiser, que a roti- 
na locaii^da no topo da mem6ria nao 
seri afetada. E com toda a prote9ao, nao 
usar^ mais que 600 bytes, o que nao re- 
presenta quase nada em termos de em- 
prego de mem6ria. 

Uma das primeiras tarefas i digitar a 
listagem 1 , com as seguintes observa95es: 



1) A linha 1 (REM) deveri ter no mfni- 
mo 610 caracteres quaisquer. 

2) Se voce quiser, poderd introduzir as 
linhas 5 e 7 atraves de um Monitor As- 
sembler. 

3) As linhas 3/4/6/8/9/10/1 1/12/13/14/ 
15/16 servem apenas para a constru9ao 
e compila9ao , para a linguagem Assem- 
bler, dos cbdigos das linhas 5 e 7. 

4) fi imprescindi'vel que voce digite a li- 
nha lea linha 2, mesmo se voce utilizar 
um compilador. Repetindo: inclusive a 
linha 2, porque sem ela o sistema n5o 
funcionar^ normalmente. 

Quando terminar de digital a hsta- 
gem 1 , verifique se todas as linhas foram 
corretamente digitadas, principalmente 
OS c6digos Assembler das linhas 5 e 7. 
Seria conveniente que voce gravasse o 
programa, assim como esti. por precau- 
930. Caso voce j^ o gravou ou tenha a 
certeza de que ele esta perfeito, digite 
RUN ENTER (ou RUN NEW LINE) e 
aguarde alguns segundos porque as li- 
nhas 5 e 7 estarSo sendo compiladas pa- 
ra a linha 1 . Depois disso pode dar um 
LIST e ver como a linha 1 mudou. 

Entao apague as linhas de 3 a 16, dei- 
xando as de numero I e 2, e acrescente 
a estas linhas: 



3 PRrNT AT 5,5;"PROGRAMA AUXILIAR 
LIAR PARA","DESENHAR E ESCREVER 

EM ASSEHBLER";AT 10,0;"ESTE PROG 
RAMA SERA PROTEGIDO NA BAMTOP."; 
fJt 14, 5; "PARA UTILIZA-LO DIGITE" 
;AT I6,9;"RAND USR 32000" 

4 FOR N= 1 TO 300 

5 NEXT N 

6 RAND USR 16514 

7 SAVE "SUPERTELA" 

8 RUN 



programa esti pronto e deverd ser 
gravado em definitivo. Quando voce o 
ler da flta cassete, ele dard a apresenta- 
9ao contida na linha 3 com uma pausa. 
Em seguida, protegerit o programa acima 
da RAMTOP, dando um NEW nestas li- 
nhas. Entao poder^ agora comanda-lo 
com um RAND USR 32000 e criar todo 
tipo de tela que imagjnar com os co- 
mandos que iremos aprender logo adiante. 

Para arquivar a "tela" que voce criou 
ou salv4-la junto com algum programa, 
proceda da seguinte maneira: leia o pro- 
grama da fita cassete e inclua nele a lis- 
tagem 2. 

NSo € necessirio que as linhas tenham 
aquela exata numera93o, mas € preciso 
que estejam sempre em seqiiencia. 

Quando incluir a hstagem 2 em um 
programa para o qual deseja criar uma 
apresenta9ao, dever^ dar um GOTO para 
a linha em que estiver o comando RAND 
USR 32000 e fazer o desenho. Quando 
voce pressionar a tecla C ou V retomari 
ao sistema BASIC para a Unha subse- 



qOente ao comando, armazenando a tela 
em uma matriz, no modo FAST, o que 
levari alguns segundos. Pronto, o video 
esta armazenado, no caso, na matriz 
DIM D$, e se voce digitar PRINT D$ 
veri seu desenho. Se quiser, poderii 
ap^ar as linhas da listagem 2 e incluir a 
linha PRINT D$ antes de salvar o pro- 
grama. 

CBS.: 1) £ possfvel armazenar outras te- 
las. Para isso, depois de arquivar na ma- 
triz D$, mude-a para E$, F$ etc., dan- 
do as instru9oes necessarias. por exem- 
plo, PRINT OS, PRINT ES, respectiva- 
mente. 

2) Importante. Depois de armazenar a 
apresentafao em uma tela e gravar o 
programa, nunca mais digite RUN para 
rodar o programa, para nSo Umpar o ar- 
quivo da matriz. Digite apenas GOTO 1 
ou de um GOTO para a linha onde se lo- 
caliza a impressSo da matriz. Verifique, 
inclusive, se no programa nao ha algum 
comando RUN. Em caso positivo, tro- 
que-o por GOTO 1 ou GOTO IMPRES- 
SAO DA MATRIZ. 

Bem, agora que voce tem o programa 
gravado, sabe para que serve e conhece 
suas caracten'sticas, vamos ver como ele 
funciona. 

programa consta de duas rotinas 
prindpais. Uma para desenhar, atraves 
de PLOT/UNPLOT e outra para escrever, 
utilizando os caracteres do teclado. Pa- 
ra melhor compreensao, vamos estud^- 
las separadamente. 



ROTINA PARA DESENHAR 



Como voce ]i sabe, para chamar essa 
rotina e necess^o digitar RAND USR 
32000. Ap6s essa instru9ao aparecerl 
um pequeno quadrado, que chamaremos 
de ponto, no canto inferior esquerdo da 
tela. Este ponto estari piscando fraca- 
mente e voce poderd gui^-lo pela tela atra- 
ves das teclas de 1 a 8 Mas ele nao serd 
impresso porque estd em UNPLOT. Pa- 
ra que haja impressao € necessario que 
voce digite P para passar para PLOT e 
quando quiser retornar para UNPLOT 
digite U. Eis as instrujoes possi'veis atra- 
ves das teclas : 

P - Plota o ponto. No infcio o sistema 
esta em UNPLOT. 

U - Unplota o ponto. £ a fun9ao inver- 
sa de P. Cria espa90S ou apaga pontos 
plotados. 

1 - Direciona o ponto na diagonal no 
sentido para cima i esquerda. 

2 - Direciona o ponto na diagonal no 
sentido para cima ^ direita. 

3 - Direciona o ponto na diagonal no 
sentido para baixo a direita. 

4 - Direciona o ponto na di^onal no 
sentido para baixo i esquerda. 

5 - Direciona o ponto no sentido hori- 
zontal a esquerda. 



6 — Direciona o ponto na vertical no sen- 
tido para baixo. 

7 - Direciona o ponto na vertical no sen- 
tido para cima. 

8 — Direciona o ponto no sentido hori- 
zontal a direita. 

A - Aumenta a velocidade de impressao. 
A cada leve toque a velocidade i acelera- 
da. Mantendo a tecla pressionada aumen- 
ta-se a acelera9ao. 

D - Diminui a velocidade. £ exatamen- 
te o inverso de A. 

L - Limpa a tela. Al^m disso, todo o sis- 
tema i zerado e funciona como se esti- 
vesse come9ando naquele exato momen- 
to. 

C - Copia a tela. Ap6s pressionar esta 
tecla, o sistema retornara ao BASIC ar- 
mazenando a matriz (Listagem 2). 
V - Copia a tela em video inverso. O 
mesmo que C s6 que ha invers3o de video. 
E - Aciona a rotina para escrever (Edi- 
tar texto). Entrada na rotina 2. 

OBSERVACOES: 

1 ) Para facilitar a compreensao de quem 
est^ se iniciando, note que nos quadri- 
nhos menores das teclas de 1 a 8 as setas 
indicam o sentido de movimenta9ao. 

2) As teclas 1 a 8 e A e D tem auto-re- 
peti9ao, isto ^, enquanto estiverem pres- 
sionadas, reaUzarSo sua fun9ao constan- 
temente. 

3) programa come9a com uma veloci- 
dade m^dia. A auto-repeti9ao permite 
at^ 200 velocidades diferentes com os 
comandos A e D. 



ROTINA PARA ESCREVER 



Essa rotina, como ji vimos, ^ aciona- 
da pela tecla E, na rotina anterior. Apa- 
recerl agora um cursor grifico no canto 
esquerdo superior, que corresponde ao 
carater gr^ico de cbdigo 136 (veja o 
manual). Voce poderd guii-lo para a di- 
reita ou para a esquerda nos cantos su- 
periores. 

A impressao dos caracteres i auto- 
matica ap6s o pressionar da tecla e se ini- 
cia na posi9ao do cursor no video. Mas 
antes de mostrarmos as fun95es possi'- 
veis nesta rotina, veremos o significado 
de cada cursor grafico. identificado pelo 
codigo do manual do usuirio. 

136 — £ o primeiro que aparece e passa 
por cima dos caracteres impressos sem 
apaga-los. Os caracteres impressos com 
esse cursor serao impressos em modo 
normal. 

128 - Ele apaga OS caracteres pelosquais 
passar. Os caracteres sao impressos em 
modo normal. 

137 — Ele passa por cima dos caracteres 
sem apaga-los. Escreve em modo grdfico. 

138 — Apaga os caracteres pelos quais 
passar. Escreve em modo grafico. s 
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UM TOQUE DE ELEGANCIA EM SEUS PROGRAMAS 



Tern hora que precisa ser micro. 



A iun9ao dos cursores ^ a de orientar 
o usuario para o modo que se encontra 
sistema no instante da opera^ao. 

Antes de vennos como os cursores sac 
acionados, uma observa9ao. Todasaste- 
clas. quando pressionadas, imprimem 



seu respective cardter. For isso, como 6 
6bvio, para se comandar o sistema com 
as devidas teclas. como veremos adian- 
te, ^ necesslrio pressiona-las junto com 
SHIFT, para que nao ocorra a impressao 
delas. Eisoesquema: 



Listagem 1 



1 REM (com 610 caracteres quaisquer) 

2 REM PROGRAMA AUXILIAR PARA 
DESENHAR E ESCREVER EM ASSEMBLER 

3 FAST 

4 LET M=16514 

5 LET A$="21FF7C2204400145021 
1007D219740EDB0CDC303C92 10000223 
64022877D01757D1 1 6D7D3EFDBC3E642 
8051 287021 80 302871 2ED4B36402A254 
07DFEDF28DPFEPECABC7DFEFDCAE57DF 
EBFCADF7DFEFBCA227FCD897D3EFFB82 
80FB9280F3E2CB8280D3E4 0B9280B180 
A0418EE0C18EE0518F00D1 1050A1B7AP 
E0a20FAED4 387 7D3EC832 3040CDB20B3 
E6432 3040ED4B877DED43 3640CDB20BC 
31E7D00007CFEFD281 1 FEFB28 1 0FEF72 
80PFEEF2813FEDF2817C9040DC90C04C 
97DFEEF2801050CC97DFEEF28F10D05C 
97DFEEF28F918E4 3EDFBC28063E6B323 
G40C92AOC402306160E217EFE762803C 
68077230D20F410F018E2CD2AOAC3007 
D3A617D573EF7BC28083Ea0BA2809151 
806 3EFFBA2801 147A32617D1 100051B7 
AFE0020FAC31E7D" 

6 GOSUB 1 1 

7 LET AS="010000CDF5083E00D73 
E88FE8028192AOC40ED4B357E78FE002 
8071 1 210019051 8F423097E32137E010 
OOOED430D7ECDF508 3E88D7CDBB02E5C 
179FEEF2809FEF728052C28EF1824213 
57E1 1 367E78FEDECAE57EFEF6CAFC7E2 
1167E1 1867EFEFA281FFEFC2834FEEEC 
AD77ECDBD077EF5ED4B357ECDF508F1C 
600D7CD3B7FC3007F1AFE00280A3E001 
27EFE80282218303E80127EFE8028141 
8227EFE8028153E0D32137E3E807 71AF 
E0028043E8A18123E80180E3E88771AF 
E002804 3E891802 3E88323F7ECD3B7F1 
822ED4B357ECDF508 3A137ED7C3007D7 
EFE00280A3D18043D123E1F7718051AF 
E0020F4C30C7E3E0C18023E1B32207F2 
1357E1 1367E7EFE1F280A3C1804 3C123 
E007718051AFE1520F4C30C7E3E00323 
57E32367E32867E3E88 32167E323F7EC 
D3B7FC31B7E0106060B78FE0020FAC9" 

8 GOSUB 1 1 

9 SLOW 

10 STOP 

11 FOR K=1 TO LEN AS STEP 2 

12 LET A=(CODE A$ (K) -28) *1 6+CO 
DE A${K+1 )-28 

13 POKE M,A 

14 LET M=M+1 

15 NEXT K 

16 RETURN 



SHIFT S - Movimenta o cursor para a 

esquerda. 

SHIFT 8 — Movimenta o cursor para a 

direita. Quando ele chegar ao fim da li- 

nha reinicia na linha seguinte. 

SHIFT 9 - Muda o modo de impressao. 











Listagem 2 






1 RAND USR 32000 

2 FAST 

i DIM DS(704) 

4 FOR InO TO 21 

5 FOR J=l TO 32 

6 LET DS(J+32«I)-CHRS PEEK {{ 
PEEK 16396+256*PEEK 16397)+J+33» 
I) 

7 NEXT J 

8 NEXT 1 

9 CLS 
10 SLOW 


1 



Se estiver em normal passard para grdfi- 
co e vice-versa. Observe que o cursor e 
alterado para melhor orienta^ao. 
SHIFT 0-0 cursor que passa por cima 
dos caracteres semapag£i-los. passar^ ago- 
ra a faze-Io e vice-versa. O cursor tam- 
bem sera alterado. 

SHIFT 4 - Retornari a primeira rotina 
(rotina para desenhar). 
OBS.: 1) Os caracteres correspondentes 
as letras. numeros e demais simbolos se- 
rao impresses no lugar onde estiver o 
cursor. A impressao das letras (A a Z) e 
numeros (0 a 9), do ponto (.) e do espa- 
90 e direta. Para a impressao dos si'mbo- 
los e necessario que se pressione, com a 
tecla correspondente, a tecla SHIFT, co- 
mo dissemos anteriormente. 

2) Importanle. Apenas serao impresses 
OS simbolos normais que sao: S ( ) "' - 
= + : : ?/ *<> , X . Os compostos de 
sfmbolos normais como: ""<- >= < > 
nao poderao ser impresses diretamente. 
Se voce prevocar a impressao de um si'm- 
bole compesto, palavra-chave eu fun- 
?ao, sistema se perdera. 

3) Nesta rotina todas as teclas tern auto- 
repeti9ae. ^ 
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Alberto M. C. Sarabando 4 engenheiro for- 
mado pela Faculdade de Engenharia de San- 
tos. Ele 6 usuario de um micro CP-200 e de 
uma calculadora TI-59. Cria programas de 
c4lculo estrutural para Engenharia Civil e 
programas de Matem^tica. Estuda linguagens 
BASIC e Assembler. 
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Tern hora que precisa ser macro. 

OondusSO. Seja para voc^ ou p9f3 sua empresa, 

micro Ou macfo, fa^a camo a Rede Giofco. a Rede 

S^ndeiFBriles ou a Control ique Ei^ se uiKiz-iido do 

Eippa II Plus ern suas necessrdafies empfesarKai^ ou 

cor[>o OS Euncian^Fios do Bamenndus p^rs suas 

aiividades prorissio^rKBis e cte lazer 

Fa^B como laniDs ouirog, que esilio aoroveilando as 

vaniagens de um micfo 

que saoe ser macro na »— 

Hora cena \ ^aiCfO 

Esoolha Elppa II Pttis 

^.^^ , a macro escolha. 

O micro macro. 

FabncaRua Annberen*931 -SP Tel. efr5,09?9- 872.2134 
Show Room- Av.Sumar^n!* 1 7^4- S.P Tel S7?.4?ee 

• fielO HOfiMflla - SPREES 225 SSBfi - Porto Alegre . APLITEC ?4 W65 - DB O^MPLiTADORf S ?? 5*36 ■ EMBRAMIC 4i &76Q ■ Rio tie Janeiro . BWS 29^ 77?a SISTEMA 
KJ.06*5 ■ SC: &lSTf.UAS233B30'! * V<l6r»a - SCR" CENTER ;^55^1J? • Bfasllifl ■ COWPUSHOW 273Jt?S • Cunllba ■ VIDEO E AUDiO 234 OSaB - Londfina - SET UN 
23.6183 ' Hecile - NC SISTEMAS ?^B-D160» Sao JOSfl Homo PrHto-TELfDATA 53 5?;4»&fl0 Paulo 'ADP SYSTEMS 227 4fl33-eMK 52 9120 ■ EUHOPLAN 2S6 9lfla ■ 

GENLOCK Zl2 ?2lO ■ SOLUCAO 267 541 1 VlGTOH SHOW FtOOW B7E 47&B 



O Elppa II Plus 6 um micro computaclor. 

ri oue tem macro vamagens. 
feito ouase ariezanalmervte, portanto leslado 
um a um 

E i5£o ^ uma macro ouaiidada. 
Camo k feito com componentes oe aita quaiidade., 
deniro dos meiriores padr^es da Fngenriafia, a 
conlia&iiidaOe do Eippa II Plus ^ macro 
O cusio de rnanulenqjflo e micfo o ijnico eofn um ano 
cJe gereniia - macro qualidaoe com macro garanlia. 
JS com preco acooteoe uma Cdsa mteressanta, 
deuena ser mis&ro. mas quancto voce uerifma o custo 
de uma cortli9uracS.o vi que k micro. 
A assiSi^r^Cha fiScnjca 6 macro ■ (jireta do labricanie 
Ou atrav^s de seus credenciados. 
Ele ^ urn Apoie* comcadvel e disp6e tfe vasta gama 
de eirpansoes e perif^ncos a sua disposicSo - 
CONTFtOLADOR CJE DRIVE. CP/M. PAL-M 80 
COLUNAS, SORSWITCM. 16K. fi4K. 12BK GRAPH + 
SUPER SERIAL CARD. SlWTETIZADOR OE VO^. 
MONITOR Ml, ele ■ rr^cro vanta'Qemi. 









Pefy lOS iVP B f^v 30f WP, dt 

pQlyiDSK 

Processadores 
de Texto 

ViMndD ap« fai^oar sud I in ha 
d? pro«siadara« da t^Kto.a Paly- 
max produ2 equ ipamen tos especa- 
ficDfi psra esse trabalho: q Pajy 
106 WP e □ 3D1 WP. que diferem 
p«la maior capacidade do seguJT- 
dQ. 

^Je559s sj^temas, os comando4 
dutom^tjcoi, inclufdloino pf6priD 
leclado, nffo ex^g«m «paciali£a' 
fJo do usuirio e faciiiTam a pro^ 
duc^o de todo e qualque^ Ti|>o d» 
texto. Elas aceiiarm v^riot Tipot d& 
impreuoras, deula as maTriciais 
at^ ai isquioadas com s.is»m.a d» 
mar^aridai intei^cannbi^eis. 

A PqlymaK de»rivotvMi, stn- 
da, gm software para a com pari bar 
OS processadores, o PolytCTiba. 
pro9rarra t in^teirfimenie em Por- 
tij|]u4i e apressntado de forrrta 
corrvenacional e iniaratcva. PO' 
lyicriba pO'Uibilita a formacJb da 
colijrAs e qusdroi comf>lex«. in'- 
clujiue com c^4euiD« rmatervii^icos, 

Polv 105 e 301 WP podem 
ser tamb^m o inCcio de uma rede 
local que e$t^ sendk! lantads: a 
Poly 93D NET. Ejja ^ uma rede 
abena que pode rar a exterktfo de 
at* l.&Quili^rretrOl, artCOrpOrartdo 
arri 255- Terrriiriais; ou micro:. A 
Poly 920 H£T tem uma velotida- 
da da tTansmitsfo da 1 Mbpnr sa- 
gunda, al^m da p04iibilitar a co- 
municac^D fimultjmea enire OS 
iermirtai& li^dos. 



Jogos da Desk 



Ovni e Sap* ds LBtrst sSo doit 

nowos jiogos criados pela De»k En- 
genharia eSisterroj. de Poriia Gfoi- 
la. pari equipamentot com (6gica 
S-inc^air. pfimairo deles 6 dedl- 
cddo aat jo^adorat qua se dsiia- 
cam pel a agilrdada. Tr^ fasar&ten- 
tam impedir que tr^s naves des- 
^m para ^rrtaa^r a Terra. A cade 
50D pantoi obtidos jogactor ga- 
nh4 mais uma base. Especial p^ara 
quem en& comecando. 

Sop* da Latr^s d voltado malt 
para agueles que ^otTam de jchgos 
que utiliEam o raflDcfnio a a me- 
rn^rie. Num psiriel iiQ dilpOtTSt 
ai letras do alfAbeto. algumdd da> 
quais depoK tfe embaralhadat. 
Com nfveit de dificuldade de 1 a 
d, □ jogador tem de reco^ocar ai 
letras ros. lugare* originalmenra 
dcupkIds. ai^ detsei doii jo^oi, 
B Desk, cujo etcriTdrio fica na Rua 
QakluJno Taqun., 480.: cor»rufi(o 
S3, tem tambim Tiro &o P&to/Be- 
Taififf A/ffrt/, fitp F/op/3(ormmo 
e Puxih^tttta. 



Mic resist 
ttnplanta 
sistemas em 
Belo Horizonte 



A MiCrOditl 4 unia software 
house de SelD Horizonte (Rue Te- 
nenlB Brito Malo, 342, ssis t303, 

tel . : 335- 1 4Q3] q ua vem le espac ia^ 
li»ndo na implantacio de tinS' 
mai utillEandO mi-crDS e minicom- 
puiadOrat. AtuaJmente tem parte 
de Cua atividade vgltada i maKimi- 
za^D da controlede Infqrma^Oet 
Sociats e Fmanceirai de clubes e 
assDcia^oef- 

Foi a Microiist Quem implari' 
tou osistema no CruzeirO' Etporie 
Clube. cujoequipaiDento^retpon- 
iJrvel por emiisao de carrtAi, cone 
trole de manialidadei. baixat da 
paoementos, posicio da caneira 
de cotKan^a, linas«m de attocia^ 
doj por ordem alfab^tiea, eadastro 
de depertdiniei e litra de aniverta- 
rianiei do'm^, enTra auirat coisas. 



Papel Autocopiativo 

A IndOttrpA de PapQl Pirac^caba, do grupo Sirrtio, A uma dsf 
rTHJoret forrvacedgras de papal para a ia>dunna de farmulirios 
cadirnuDs. No final de $1 o grupo SimJo firmou umcontretode 

transfarincia de tacnologie com e Nathufl, dos Estadot Uridoi. 
AtrovAx dasia contrato a Indusiria de Pap«l Piractcaba paisou a 
recabar o knowM^ow para a producao de pap^it eipaciais.. entrfl 
Ot C^uapt O papal autocopiativo ExEra Copy, qua agora eiti serido 
lan^Kfo no marcado nacional- No pnOceisamenta da dadoso Ek- 
ira Copy parmita aumentar a eflciflncia da imprassora comaell- 
m»na^ do papal carfaono. Para Impratsora da caracterei o nO- 
maro da cApias recomendadat ri^ da 6 a S vias, e para impre»or» 
de liinha □ labricante recomerKla que sajam faitai entre E e 6 via* 
par vez. 




Prologica no Cirandao 



Dapois de lan^ar o pacore que posiibilita Ot utujriot de»ut micro- 
computadores ecesu^em o linema Vldeotexio da Telatp, a Prol6gica 
eritra e^^ra tamt>Am no Cirandjo, da Embraial. Para canto a empresa 
deHDVOlveu o proiocolo TRTTY, qua permite □ acasso a divarsos ser- 
vi^otda informal^. 

At caracterftTacat do protDa»lQ da comunica^o Pfol^gica sao: m- 
(Tncrona.. caracter a caracter, paridade par^ I'mpar e sem paridade, 7 OU 
S Dj>ia Silt, canal sacund^rio ou principal, c:6digo ASCII e at seguintes 
valOcidades de cdmunicapao : 50 a 1 S20Q bps para recapCAO/tranimilsSo 
OU 121X1/75 bps para receptw/tranimi ul'o, aiendendo, portanto.^t et- 
pecificacoes da Embretel, para o Cireridfo. 

Para aceuar o Cirandfo o uiu^rio da microeompuiadorai Proldgica 
(tove se iritcrever na Embratel a adquiirar o Kii para □ sistama. O Kit. dit^ 
pom'vel em qualquer ravartdedor da Prol^ica, Acomposto par modem, 
caboi de liga^^, placa RS 232C e dtsquate- protocola da comunica- 
zSo d^ cadido graiuitamen la pela Prol6gica- 



A Utemtum dejogos 



Ot primeirfit livrot dejogasqiiJe 

turgaram TvH marCado faram os da 
linha Sinclair. Isto porque OS mi- 
croE dessa linha sao OS meil bara- 
toi a, consequeniemenie. oi mart 
vendifjo). Hoje, por^m, jiexanam 
jogos a tivrqi para iodo> « lipot 
de microi. 

Eriiretanio, o numafo da livroi 
bratileirOt iobre programagaa de 
jogPt ainda a pequeno se compB- 
rado a quantidade dot Uaduzidti'I 
OU em irigl£i. Mas acr>edi<ta-se qua 
marcado de livroi de Inlormi^ 
tica, em 'geral^ i cresoente a que 
meimo devard acontacar em Ve- 
la^ aot lpvTO< de jogas. 

Na ^rdade. asta nova litera- 
tura da jggos j4 ap reienta diferen - 
tas esfilPSr OU seja, oi livrot pey 
dem ter tubdividaa^t da aeordo 
com a maneira pela qual anunto 
it tratedo. A grande maioria detei 
le prop5e, tpmplatmente, a listar 
programas, o qua limita o uiuAraa 
a COpiar tarn desanvalvar sua crra- 
tavidade. Apesar disso. alguni dai- 
ses programas sfto bastante inieti- 
gentes e de«pertam grande inta- 
resK no laitor. 

Outrot enianam realrp>enie 
corrvo elaborar jo^s, apresantar^ 
do truques e comerttiriot da gran^ 
de utilidade para o apranditado 
do usudrio, Um bom exemplo del- 
ta Tips d* literatura d a Curva da 
Jogotam Batic TK, da F^bio Han- 
dalucci. Esia tftulo, publicado pe- 
la adilora Moderna, moslre fun- 



cionsrrrenio do« |Dgo« mait timpFat 
aot mai( copuplexos, tratando de 
atluntot COmo placares, rrtovaman- 
tos e n^vfiii da dificuldade, sempre 
acompanhad'ps de um program! 
coma exampl.D. TK Pivertindo. de 
Victor Mirshtei^a, 'WJitado pela No- 
bel, tamb^m poele se/ anquadrado 
nesse esUlo, auior dddicat bitP- 
cat, do tipo, como carr^gar a guar- 
dar um progirartpa a fa^ cament^' 
raos tcibra elat, aiam de dadicar a 
intirodu^ao do livro a exp<licacoe* 
sabre o teclado do TK-B5. 

Comq a maipria dos jogos 4 
escrata am linguagem de mdquina, 
nao se pode descartar a pouibiii- 
dade doi livroi sobre atseatiunto 
lerem uma pane impcrtania da li- 
t^aiura da jogas. Eles, cenamen- 
te. s5o de graride valia para o utuA- 
rio que quar anterpdar^da manaira 
mais complaia, □ funcionamanto 
deuat prOgramas. Usando Lingua- 
gem da Mdquine, de M^rioSdiaef^ 
far, e Linguagem de Mdquina pan 
o TK, de FIAvio Hoiiirpi, amboi 
da Editora Modarna, taa iivrasca- 
pazet da auxilaar a leilor nesse sen- 
Tido. 

Al^m dot livrot exitTentat, nao 
se pode efquaceraamport^rpciadas 
publican oat mei^sapt qua, iefnsam- 
brade duvadat, v4'm apresen tandP, 
frequentamarpta, bons trsbalhos 
tobra q atsuntD e contribuindo 
para a popularizacao da Inform^' 
liica f\u pa/s. 



Protocolo sobre Informatica 
na Educa^ao 



O Secretirio-Gerat do MEC - 
Sergio Pasquali, o Secret^rio Espn- 
cisl de Informatica — Edison Dytz, 
o presidente do CNPq ~ Lynsldo 
Cavalcanti de Albuquerque e o 
presidente da FINEP - Josd Wal- 
ter Melo assJnaram, em Brasflia, 
um protocolo de inten^oes com o 
objetivo de desenvotver urr^a infra- 
estrutura de Informdtica nas insti- 
tui^oes de ensino superior. 

O protocolo visa promover o 
equili^rio entre o processo de In- 
formitica, que vem se amplisndo 
cada vsz mais, e as instituigoes da 
ensino superior, que, pela car€n- 
cis de recursos, nSb conseguem 
acompanhar o desenvolvimento 
desse processo. Uma outra preo- 
cupacao assrnalada no protocolo 6 



com relagao a total predominan- 
cia de equipamentos estrangeiros 
no paft, o que dificulta a forma- 
930 de profissionais com conheci- 
mento sobre os equipamentos de 
fabricai^ao nacional. 

Em vtrtude de frequente falta 
de recursos e agiiidade dos atuais 
programas de Informatica, o pro- 
tocolo preve a constitui^aodeuma 
comissao coordenadora, integra- 
da por representantes do MEC, 
SEI, CNPq, FINEP e das insiitui- 
poes privadas e publicas, que \t& 
apresentar normas de operaciona- 
lizapao do protocolo, comdurapao 
de dois anos, mat com a possibili- 
dade de ser prorrogado de aeordo 
com a vontade de seus i ntegrantes. 




Jomalista de MS vence 
Premio Imprensa/84 

Em cerimOnia realizada na sede do Brasilinvest, a jomalista Gra^a 
Santos, de MICRO SISTEMAS, recebeu das maos de Ayrton Fagundes, 
Assessor de Imprensa da Secretaria Especial de Informatica, o PrSmio 
Imprensa/84 ANDEI-NOVADATA. A escoiha da comissao julgadora foi 
referendada tamtam pelo voto direto dos associados da AN DEI. 

A materia vencedora. resultado de um ampio trabalho de pesquisa, 
trata do processamento de texto e sues aplicapoes, trazendo ainda um 
panorama completo dos equipamentos disponfveis no marcado. 



Videotexto da Itautec 
na Telesp 



A Itsutac acsinou 
contrato com a Telesp 
pera o fornecimento 
de quinhentos termi- 
nals de videotexto I- 
1060. com entrega 
prevista pars ot pri- 
me] ros meses desse 
ano. Os terminals I- 
1060 serao alugsdos 
aos usudrioE do siste- 
ma Videotexto atrav^s 
do piano de exFsnsao 
do Centro Publico da 
Telexp. piano prevS 
a instalapao de 12 a 1 5 
mil terminais ainda 
em 85. terminal I- 
1060 pode ser utilize- 
do tanto no escrit6rio 
quanto em casa e sua 
instala^ao 6 simples, 
battandolig^-lo a qual- 
quer modelo de televitao, preto e 
branco ou colorida, ou metmo em 
monitor de vfdeo caso o usu^rio 
possua um micro. O terminal da 
Itautec 6 composto por um adap- 
tador de videotexto e um teclado 
elfanuFD^rico, com 61 teclas dts- 
postas con-K> em uma mdquina de 
Bscrever. teclado pode comuni- 
car-se com o adaptador por cabo 
ou controle remoto, permitindo 




Terminal videotexto 1-1060 



sua operaoao de qualquer ponto 
de um mesmo ambiente. No futu- 
ro a Itautec informa que o termi- 
nal videotexto poderd ser utiliza- 
do tambdm com uma impressora, 
atrav6s de interface, permitindo 
ao usu^rio imprimir todo o mate- 
rial que aparece na tela. M060 
pode ainda atuar como secret&ria 
eletrdnica. 



Valtech transfere 
fabrica para o Rio 



A Valtech ComSrcio e IndCistria Ltda. transferlu sua fibrica de SSo 
Bernardo do Campo, em Sao Paulo, para o Rio de Janeiro. A empresa 
i^ iniciou suas atividades de produ^So e comercializa^ao e continue ofe- 
recendo placas de circuitos impressos - profissionais (furot nwializados), 
semi-profissionais (estanhos), convencionaJs. prot6tipos e fabrica^ao em 
s^rie, assim como assistSncia i^cnica em projetos e andlites. 

novo endere^o da Valtech 6: Rua Felizardo Fortes, nP 563 — Ra- 
mos. 




STRINGS 




• William Koelsch 6 o novo gerente da filial Rio de Janeiro da Cincom 
Systems. Ele passa a responder por todas as atividades da filial que se re- 
lacionam com vendas, suporte ttenico e administrapao financeira. • A 
Edisa foi selecionada pera fornecerao Minist^rio do Exdrcito microcom- 
putadores multiusuirios de sua linha ED-2Q0, por um perTodo de tres 
anos. • A Verbatim langou, na ultima Feira Internacional de Informati- 
ca. OS disquetes Hard Sectored, para alguns equipamentos da Polymax. 

• A Burroughs est^ lan^ando um len9o de papel do tipo "Lint Free", 
que pode ser usado para a limpeza de cabe^as magn^icat, assim como 
de todoE OS componentes que entram em contato com a fita magndtica. 

• A fl^icrodigital estd fabricando o Gravador de Eprom para a linha TK. 
A interface "Gravador Eprom" 6 utilizada para mem6rias semiconduto- 
ras do tipo Eprom capazes de armazenar 2 Kb de informapao sob a 
forma bin^ria. V software PACFIN - sistema estruturado para a irea 
financeira — , da empresa INFOCO, foi o primeJro colocado no concurso 
"Melhor Software do Ano", criado e promovido pela ANDEI, O premio 
para o primeiro colocado foi um microcomputador 1-7000 Jr., da Itau- 



tec, patrocinadora do evento. • Atrav6s de um trabalho desenvolvido 
pelo bailarino Ricardo Viviani, do elenco da papa OhI Calcutdlpela pri- 
meira vez no Brasil um espetteulo une a danpa ao computador. Ricardo 
utiliza as imagens gr^ficas produzidas por monitores de vfdeo para coor- 
denar os seus passes no palco. roteiro computadorizado inclui seis so- 
los e um dueto. • A Diimac, sexta maior fabricante de micros nacionais 
(segundo Melhores e Maiores de 84 — Revista Exame), apretentou o se- 
gundo maior fndice de capitaliza^ao do setor de Informatica. De aeordo 
com o gerente de marketing da empresa. Jos^ Lacerda, isso se deve a to- 
tal reformulapao da estrat^ia mercadol6gica, buscando melhorar a es- 
trutura interna com o atendimento mait direto so usudrio, 9 iornal 
Dols Pontot. da cidade de Natal, no Rio Grande do Norte, esti publi- 
cando uma coluna dirigida A ^rea de Informatica. Esta coluna foi uma 
iniciativa do jomalista Mdrio Lira Pedrosa, seu atual respons^el, que 
tem como objetivo transmitir ao publico, de maneira simples e agradd- 
vel, informacoes sobre o assunto. j» 



MICRO SISTEMAS, fevefeiro/&5 
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Brasil Trade Center 
oferece novos servigos 



Com apenat um ano e doit me- 
tes de atuagso na comercializacao 
e atsestoria de neg6cioa na Area de 
Inform^tica. o grupo Brasil Trade 
Center jd inaugurou sua primeira 
rndOstria. A f&brica, que fica em 
Cavalcante, no Rio, estd produzin- 
do, emre outros, m6veis para mi- 
cros (mesas, cadeirai e malai) e 
pJacas para a linha Apple. Segun- 
do Manoel AssunpSo. presidente 
do grupo, a fabrica^o dm placet 
te deve i grande procure existertte 
no mercado e A felta de condip5e« 
dat empretai am turprir etta de- 
manda. 

Outre novidade no BTC too ot 
tegmentot de importa^o e expor- 
tapSo. primeiro tern o objetivo 
de esteuorar o pequeno e n'tMio 
produtor na compra de compo- 
nentes de alta tecnologia. Ji o te- 



tor de exportapao vtta apoiar o 
pequeno e mMio exportador, de 
qualquer drea,atrav6s da informa- 
^o. Esse processo se dA pels ins- 
talagao de um sistema de compu- 
tador na empresa, o que permite 
ao produtor ter acesso ds informa- 
(dm necessaries ao desenvolvi- 
mento de sua industrla. 

A\6m disso, o BTC continue 
expandindo seus neg6cios ne ^rea 
comercial. Atualmente, a empresa 
tern cinco pontes de vends, mas 
pretende chegar ao sno de 86 com 
nada menos que cem pontos de 
vends. Para isso, o grupo estd pro- 
curando represententet em cida- 
des de todo o paTs. A sede do Bra- 
sil Trade Center fica na Av. Epitd- 
cio Pessoa nP 280, Ipanema, tel.: 
(021 1 259-1 299, Rio de Jeneins - 
RJ. 



Emulando e TYansferindo Dados 



A place 7101 6o novo produto lan^ado pela Link. Trata-se 
de um emulador de terminals 3278 e 3279 que permite a comu- 
nicapao e trantferSncia de arquivos entre microcomputedores 
compatfveis com IBM PC, como o modeio 727, de pr6prie Link, 
e computadores de grande porte da IBM. A comunica^ao 6 felta 
vta urns controladors de terminals IBM 3274/3276, atravte de 
um cabo coaxial. 

AI6m da place de comunicapao, o produto 6 composto tarn- 
b^m pelo software Terminal de Trabalho Executivo, que permite 
a transferSncta de arquivos entre o micro e o sisten^e central, em 
smbientes CMS, OSO e CICs. O Link 7101 jd estS sendo comer- 
cializado e seu preco de mercado 6 de 300 ORTN. A manutengao 
integral do produto por um ano fica por conta da Link e etta sa- 
rd efatuada nas dependencies do pr6prio cliente. 



Advancing, Informatica no Sul 

Crisda em 1979, em um espaco da 80 metros quadradot em Porto 
Alegre. hoje a Advancing forma um grupo que atua em diversos setores 
da Informitica, com destaque na drea de trelnamento. A empreta ofe- 
rece cerca de 38 cursos, que vao ds formacao ao aprimoramento de pro- 
fjssionais em processamento de dados. 

Em 1981, a Advancing lanpou unrva loja especializada em computado- 
res no sul do Pafs, estabelacimento reinaugurado em 1 983 na forma da 
mais complete boutique do Ettado, a Advancing Computer Shop, ocu- 
pando o mesmo prddio que a Advancing Sistemas e Manutencao, na Sar- 
mento Leite, 248. O complexo Advancing estfi distribufdo em quetro 
sedes, tr§s das queit sab prdprias. 



OurOf novo modeio 
de monitor da CMA 

A CMA Induttria Eletr6nics lan^u recentemente teu moni- 
tor Ouro, cuja principal caracterrstica sao dois tamanhosde qua- 
dro, reduzido eampliado. Equipamentodeaplica^o profitsional, 
reproduz com alta resolucao qualquer tipo de grdfico, desenho 
ou texto, em 40 ou 80 colunat. £ compet/vel com o derlvador de 
vfdeo DM6, da CMA, o que permite a llge^o de atd seit monito- 
res em um iinico micro. 

O nrKjnitor Ouro d do tlpo port&til, com atpa pera trantporte, 
tern tela de 31cm [12") em f6sforo verde (opcionelmenta lumi- 
nescSncia branca) e controles de brilho, contreste e chave tiga/ 
desliga no painel frontal. No peinel traceiro hd outros controles: 
sincronismo horizontal e vertical, linearidade vertical, altura, fo- 
co e temanhos do quadro. Pesa 10 kg. Outras informapdes po- 
dem ser obttdet pelo telefone 1011 ) 548-2249. 



Simitex Escolar 



Simitex Escoler d um eplicati- 
vo desenvotvido pela emprete ca- 
rioca Simicron para micros de uio 
profissional em estabeleclmentos 
de ensino. Ele permite tubttltuir, 
de forma segura e eficiente, copta- 
doras, mime6grafot e as mdqulnai 
de escrever convencionais. Embo- 
ra de concepcao sofisticada, 4 de 
fdcil operapao, dispentando trei- 
nemento ou manuals. Ele arn^aze- 
na, organiza, edita e emite textoi 
de qualquer naiureze, como pro- 
ves, testes, drculares, apottiiat etc. 

A consulta e textos armazene- 
dos pode ser feita por uma tdrie 
de itens definidoi peta adminiitra- 
?ao do ettabelecimento, por exem- 
plo, porcursot, matdrias, assuntos. 



datas ou profestoret. O Stmltex 
Escolar tem caracterfttlcat que 
impossibilitam o uto de sua bibllo- 
tece por pessoat nao autorizadai, 
Incluindo um eficaz procesio de 
segurenpa de arquivos e c6plas de 
cedastros. 

Tembdm voltado para a dree 
de ensino, a Simicron tem o sists- 
ma Magitter, que permite concen- 
trar rotinas financeiras e acaddml- 
ces. grupo acadSmico possibfll- 
ta registrode cursos, matdries, pro- 
fessores, alurvos, notes etc. Nadrea 
financeira efetua cedestramento 
de paganrwntos, cepat de carnAs, 
levantamanto de valoret recebidos 
etc. Ote[efonedaSimicrond'102U 
205-6597. 



Exitus Informatica 

A Exitus Informdtica d uma loja de Juiz de Fore especializada em 
microcomputsdores. A maioria dot micros nacioneii podem ser encon- 
trados na Exitus que possui tambdm grande variedade de perifdricos (im- 
pressoras, monitores de vfdeo, modems, tedados, disco Winchester, 
entre outros), e todos os suprimentos necessdrios A utilizacao de micro- 
computedores. Aldm de prester assist^ncia tdcnica para os produtosque 
(x>mercieljza, a Exitus, atravds de seu departamento de softvwre desen- 
volve programas sob encomenda para qualquer micro. Ld tambdm seo 
oferecidos curso de Basic, Cobol, Assembly, Fortran, Pascal e outros. A 
Exitus possui financiamento pr6prio para pagamentoc em atd cinco ve- 
zes, e a loja atnda compra, troca e vende micros usadot. enderego da 
Exitus d Rub Santo Antonio, 689, no centro de Juiz de Fore. Tell.: 
(032) 213-2494 e 212-0564. 



O Comercio se Automatiza 



Comemorando seu primeiro sno de exit- 
tdncie a Associe^o Bresileire de Automagao 
Comercial - ABAC, inaugurou sua nova sede 
em Seo Paulo. Ns ocatiso s diretorieda ABAC 
defendeu e cria^ao de uma rede unica de Ter- 
minals de Transferdncie de Fundos (TTF), 
un^a decisao contrdria d assumida pelos bancot 
em recente Congresso realizado em Salvador. 
Ot bancos nso chegaram a um acordo quanto 
d unifica^ao dot TTFt e serSo mantidat por- 
tanto at qustro redet hoje existentes: Brades- 
co; Tecnologia Bencdria (Banco 24 Horat); 
Itau e Credicard; e Banco do Brasil. A necesil- 
dade de terminals dittintot F>ara cade um dot 
bancot, tegundo ot comerciantet, invisbJIizaa 
utilizagao de TTF uma vez que cada loja tard 



que pottuir no mfnimo quatro terminait, e no 
caso de magazines este numero deveria ser 
multiplicado pelo numero de departementoi 
orxie fotsem instelados os terminelt. Aldm dis- 
so OS comerciantet apontam para o fato de 
que OS custos decorrentes da inttala^o de ter- 
minals, jd que algumas institui^s bancdriat 
cobram pela instala^ao aldm de uma taxa de 
eluguel, e outras por cada transapao realizada, 
aldm da Hgacso telef6nica quando o terminal 
d aclonado pere consulter o benco de dedoi 
central tobre o seldo do cliente, teriam que 
ser repessados para o consumfdor, o que nio 
interetsa ao comdrcio. 

Diante do impasse criado a ABAC retolveu 
former grupos dis trabalho em Porto Alegre, 



Recife, Rio de Janeiro e SSo Paulo para estu- 
der uma solucao para o caso. Unrta dat alterna- 
tives que eatdsendo apontada pelos comercien- 
tes d a criapao de ume rede especffica para o 
comdrcio. 

Quanto A padronizsi;ao do c6digo de ber- 
ras dentro do processo de automaceo comer- 
cial, o c6digo a ser utillzado no Brasil jd foi 
definido e serd o EAN, usado em vdrios pafset 
da Europe. A impressao dot c6digot net em- 
balagens dos produtos deverd ter inCcio no ter- 
ceiro trinwstre deste ano e a leitura 6tics com 
utillza^io de caneta tipo light pen ettd previt- 
ta para o tegundo semenre de 86. 



Ele e profis- 
sional que todo em- 
presano gostaria 
ae ter no escritorio. 
Ouemcasa.Novo 
cornputador Craft 
II Plus. E 100% 
compatlvel com a 
linha Apple. 

Seu leclado tem 
caracteres em 
portugues, siste- 
ma auto-teste — 
e 42 funics pre- 
programadas, 
alem de 9 fungoes 
programaveis. 

Venha conhecer 
este profissional 




AOAPFYAPRESENIAO 
PIOISSIONAL DOANQ 



14 



MICRO SISTEMAS, fevereiro/85 



na Clappy.Voce vai 
dialogar com uma 
equipe tecnica que 
realmente entende 
seu problema 
e aponta sempre a 
melhor solugao. 
Vai encontrar 
tambem a mais 
completa linha de 
microcomputado- 
res, perif encos, su- 
primentos, sof twa- 
res.Enemepre- 



ciso dizer que o 
preQO Clappy e se- 
guramente o me- 
nor do mercado. 

Alem disso, a 
Clappy oferece 
cursos de progra- 
magao, implanta- 
Qao e instalagao de 
sistemas e assis- 
tencia tecnica 
propria. 

Venha a nossa 
loja ou solicite 



a visita de um 
representante. 



lado gente da m^quina. 



Centro: Av. Rio Branco, 12 - loja e 
sobreloja-Tel: (021)253-3395. 

Copacabana: Rua Pompeu Loureiro, 99 
Tel: (021)236-7175-25^4398. 

Aberta diariamente das 9 ds 19 horas 
e aos sSbados das 9 As 14 horas. 
Assistdncia Tecnica - 284-3349. 
Entregamos em todo Brasil pelo 
reembolsoVarig. 



Hoje, acessar a informagao precisa e mante-la organizada 
sao preocupa^oes dos usuarios de micros. Para estes, 
MS selecionou diversos temas sobre BDs 

Bancos de Dados - a 
utilizacao crescente 
em micros 



As inlimeras mova90es que vi- 
venciamos a cada dia em 
nossos processes de produ- 
9ffo jd deixaram claio que 
caminhamos para uma situa^So em que 
deter a informa9ffo significa, nffo raro, 
deter eficiencia e at^ mesmo poder. Ho- 
je, a necessidade de se ter as infoima- 
95es organizadas de forma a permitir urn 
acesso ripido e racional faz-se presente 
nSo s6 no estigjo de estudos que antece- 
de OS processes de tomada de grandes 

decisOes como tambem, de maneira mais 
ampia, em todas as tarefas complemen- 
tares de suporte, operacionaliza^Sb e 
busca de insumos que cercam nosso tra- 
balho. 

Dentro deste contexto, ser um usui- 
rio de computadores e servir-se, de um 
modo geral, dos services de aimaze- 
namento eletronico das informa90es fi- 
cou no minimo aconselhJivel. Assumi- 
ram, entffo, um agnificado importante 
OS sistemas que permitem uma comple- 
ta manipula^So, busca e recupera^ffo 
de dados. Os softwares Gerenciadores 
de Bancos de Dados, outrora um privi- 

U^o dos que tinham acesso a equi[>a- 
mentos de grande porte, sffo hoje po- 
derosos aliados e mesmo puxadores de 
vendas de microcomputadores. Tal su- 

cesso e' compreensivel nSo somente d 
luz da importancia que vem assumindo 
o "estarbem informado" como tamb^m 

em fun^ab de sua ampla possibiiidade 
de utilizacao, visto haver, em todos os 
segmentos da atividade Humana, aptica- 
90es possiveis a esse tipo de sistema. 
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sonsTiCAgAO crescente 

£ impressionante como as demandas 
se muhiphcam e as necessidades apon- 
tam para sistemas cada vez mais soHs- 
ticados, que buscam, al^m da comple- 
xidade e abrangencia de fun^fies, uma 
simplicidade de uso que fa^a dessas Ba- 
ses de Dados uma extensSo quase natu- 
ral da capacidade humana. Neste ponto 
flea claro que todos os resultados e con- 
quistas dessas pesquisas sSb, na realida- 
de, meras fases de uma busca maior, ru- 
mo k Inteligencia Artificial. 

Na tentativa de dotar esses sistemas 
de sofistica^ao e simplicidade, deixa- 
mos para a Idade da Pedra o tempo em 
que o micro nada mais oferecia do que 
uma *ficha eletronica", guardando to- 
dos OS inconvenientes e limitafOes do 
ar^azenamento manual de dados e mos- 
trando um unico aspecto de sedu93b: 
visualizar as informacOes no vfdeo, ao 
inv6s do papel, mesmo que isto envoi- 
vesse at^, em alguns casos, mais traba- 
Iho. 

Ao longo dos uitimos anos, diversos 
sistemas Gerenciadores de Bancos de 
Dados foram lancados no mercado, com 
ftin95es cada vez mais completas e ex- 
plora9So crescente dos recursos dos mi- 
crocomputadores e da evolugfl^o do hard- 
ware, principalmente nos aspectos refe- 
rentes k capacidade de armazenamento 
ffsico de informacOes. 

E apesar de somente no lUtimo ano 
esses sistemas terem se tornado efeti- 
vamente discutidos e utilizados no Bra- 
sil — e aqui os usu^os ainda tern muito 
o que descobrir sobre o potencial deles 



— , OS inquietos norte-americanos \k lan- 
9am-se em discussCes e pesquisas bas- 
tante aceleradas sobre a forma de in- 
tegrar sistemas com capacidade de ma- 
nipula^ab em Bases de Dados a outras 
fuii^Oes. Dessas discussOes resultam pro- 
dutos que, inclusive, representam uma 
gera^So posterior k dos famosos soft- 
wares integrados (tipo Lotus 1-2-3), que 
incluem Bancos de Dddos como aplica- 
9^0 principal ou secundaria, mas que 
nSo podem ser considerados SGBDs ple- 
nos. Antes, o software integrado tradi- 
cional apresenta apenas algumas fun- 
9Ces de manipula93o de dados (sort, 
por exemplo), geralmente servindo de 
apoio a uma segunda aplica9£o princi- 
pal, que € usualmente a planilha de 
cdlculo. 

De concep9ao mais recente, existem 
novos produtos como os chamados Text 
Databases, que integram ao Gerenciador 
de Bancos de Dados func^s de edi9ab 
antes somente possiveis via uso de edi- 
tores de texto. Isto po.que, a partir de 
novas necessidades de uso, constatou-se 
que OS editores de texto nSb apresen- 
tam mecanismos eftcientes de manipu- 
la9aio de dados, enquanto que bs SGBDs 
pecam por nSb apresentarem fadlida- 
des de edi9ao. ii este produto hibrido 
reuniria condi9Ces para locaJizar rapida- 
mente fragmentos de texto, edit^4os e 
inoorpori-los a documentos maiores, 
previamente instalados no sistema. 

ESCLARECIMENTOS 

Mas enquanto ainda estamos um pou- 
co distantes dessas discussOes de van- 
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guarda, & interessante procurar esclare- 
cer aos usudrios, principalmente aque- 
les de maquinas pessoais, sobre o que 
vem a ser e quais beneficios o uso de 
Sistemas Gerenciadores de Bancos de 
Dados poder^ trazer no exerci'cio de 
suas atividades. 

E come9amos dai: quase todas as 
atividades necessitam de organizacSo de 
dados. Entendemos, entao, xmia base de 
dados como um ou mais arquivos, com- 
postos de registros que, em determina- 
dos campos deflnidos pelo usu^o da 
base, abrigam dados relacionados entre 
si. Assim, percebe-se que uma base de 
dados nada mais e' do que uma cole9ao 
de arquivos, nos quais podem estar con- 
centrados e organizados Uteralmente 
quaisquer dados que o usuario se inte- 
resse em armazenar. Pois bem, os 
SGBDs sSo OS programas que se en- 
carregam de gerenciar e garantir a ra- 
cionaliza9ffo de armazenamento desta 
base (ou banco) de informa9CSes. Eles 
permitem que o pr6prio operador defi- 
na seus arquivos e "deseiihe" seus re- 
gistros, especificando assim a fomia de 
entrada e recupera93o dos dados. Ap6s 
ter completado sua base de dados, o 
usudrio pode, gra9as k 39^0 dos SGBDs, 
adicionar, alterar ou deletar dados; rea- 
lizar pesquisas no arquivo e gerar rela- 
t6rios, estruturados de acordo com suas 
prioridades e crit^rios de sele9ab. 

Ocorre, contudo, que os programas 
de controle e gerenciamento de bases 
de dados abrangem um amplo leque de 
op90es, variando em func^o das maqui- 
nas em que rodam, dos recursos ofere- 
ddos e dos pre90s, entre outros fatores. 
Toda esta possibUidade acaba criando 
confusffo quando o interessado nab 
tern claras certas definicOes e, piinci- 
palmente, o objetivo de utiliza9ao de 
sua base de informacOes. 

Novamente primeiro passo € defi- 
nir qual a utiliza9ao. Isto porque, das 
mais simples k& mais soflsticadas, exis- 
tem diversas formas e produtos usados 
para armazenar e gerenciar a informa9ao 
que desejamos ter sempre k mSo e orga- 
nizada. O uso profissional, salvo em ra- 
ras excecOes, nao pode prescindir de 
um SGBD complete, que Ihe permita 
flextbHidade de manipula9ab e seguran- 
9a de dados. Ji no nivel das apIicacOes 
dom^sticas geralmente sa^o aconselhados 
OS programas mais simples, ideais para 
OS arquivos caseiios de livros, discos, te- 
lefones ou stmilares. Neste caso, a ex- 
ce9ao fica por conta dos coledonadores 
ou daqueles que levam seus hobbies a 
extremos e que, eventualmente, poderSb 
precisar de sistemas mais poderosos. 
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GATO POR LEBRE 



Na hora da compra, portanto, 6 ne- 
cessdrio estar atento. Isto porque o nu- 
mero de programas intitulando-se Ban- 
cos de Dados no mercado 6 grande. Se- 
gundo nosso assessor Orson Galvao, al- 
guns deles, inclusive, "nffo chegam nem 
a tamborete, e sffo, no mdximo, sacos 
de dados". Para GalvSo, uma utiliza9So 
efetiva de banco de dados precisard 
apresentar: 

• um software que defma a estnitura 
do banco de dados e possibilite a aU- 
menta9ao e manutencS'o do mesmo; 

• um software que permita a manipu- 
139^0 tanto dos dados no banco quanto 
da estrutura previamente criada; 

• um software que permita acessar e 
utilizar os dados de forma a gerar rela- 
torios, fazer pesquisas seletivas e todo 
produto final desejado; 

• um software que facilite a interl^a- 
9S0 com outros sistemas fora do banco 
de dados, atrav^s da geraca^o de arqui- 
vos de dados em formato compativel. 

Segundo ele, um verdadeiro sistema 
de banco de dados engloba, por si s6, 
todas estas tarefas e possibilidades, con- 
tendo ainda uma linguagem de progra- 
ma9ffo. 

Nem todos os produtos disponCveis, 
contudo, apresentam tais caracterfsticas. 
Para comecar dos mais simples, existem 
certos programas que sffo comumente 
denominados de sistemas paia gerencia- 
mento de arquivos, uma vez que foram 
desenvolvidos de forma a gerenciar lis- 
tas de informa90es, limitando^e a guar- 
dar registros (flchas), independentes en- 
tre si, na ordem em que sffo introduzi- 
dos pelo operador. Slo tambem os pro- 
gramas mais baratos, fdceis de usar e 
usualmente c<Miduzidos atrav^s de me- 
nus, exigindo do usuirio pouca memori- 
za9ao de comandos e funcCies. 

Primeiramente, o usudrio "transmi- 
te" ao sistema ctmio quer entrar os da- 
dos, desenhando na tela suas fichas, es- 
tabelecendo o nome e tamanho dos 
campos e especificando os tipos de da- 
dos (num^ricos, alfanumi^ricos ou i6gi- 
cos) que devem ser entrados naquele lo- 
cal. A partir daf e uma vez entradas — e 
criticadas — as informafOes, o programa 
permite adicionar, alterar ou apagar da- 
dos; executar pesquisa a partir de cam- 
pos especfficos, ditos chaves; ordenar o 
arquivo (sort) como queira o usudrio e 
gerar relatbrios. 

Uma hmitac^o desse tipo de progra- 
ma 6 que ele, geralmente, trabalha s6 
um arquivo por vez, nab possibilitando 

» 




Seu micro 
merece 




Assistencia 
Tecnica 
ASSIST. 

E voce merece a tranquilidade de conlar 
am a mais eficiente equipe tecnica do Rio. 
treinada nas fabricas, e recomendada pela 
Petrobras, Fuf nas, Lighl e Bolsa de Valores. 
A ASSIST oferece tambem diversas opgoes 
para contratos anuaisde assistencia tecni- 
ca, que garantem maximo ao seu micro, 

Esemcustar mais pa isto. 

OsmicrosSpectrum.Prologica, Digitus 
e muitos outros, alem de video-games e com- 
patibiiiza^ao de perilencos. tern na ASSIST 
uma assistencia tecnica aprovada pelos pro- 
prios labncantes, Alem disto, voce tem total 
assistencia aos micros importados: Sinclair, 
TRS-80,AppleePCIBM, 

Se voce tem um micro e quer maximo em 
asstslencia lecnica, nao pense duas vezes: 
oense ASSIST. 

ASSIST: A maxima soluQao para seu micro. 



Assessoriade Sistemas e Engenharia Ltda, 

Av, Beira-Maf. 406 - Gr. 805 - Casleto 
Tel 262-5763 
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TECNOLOGIAORT 

CENTRO DE INFORMATICA 



PROGRAMAS DETREINAMENTO 

AREA OE MICROINFORMATICA 

• PARA USUARIOS 
(INTRODUgAO A PD, VISICALC/ 
SUPERCALC, WORDSTAR, 
dBASE II. BASIC) 

• PAHA PHOGRAMADORES E 
ANALISTAS 

(INTRODUQAO AO MICRO, CP/M, 
BASIC SOB CP/M, WORDSTAR E 
dBASE II) 

• NA EOUCACAO 

(LOGO PARA EDUCADORES E 
PS1C0L0G0S;L0G0 PARA 
JOVENS) 



FORMACAO PROFISSIONAL EM 

PROGRAMACAO E ANALISE DE 

SISTEMAS 

APERFEICOAMENTO 
PROFISSIONAL EM AMBIENTE IBM 

CPD-ORT: IBM 4341 

COMTERMINAIS 
LABORATORIO DE MICROS 

TREINAMENTO IN HOUSE 

EXCLUSIVO PARA EMPRESAS 

SOLICITE INFORMACOES E 
FOLHETOS EXPLICATIVOS 



RUA DONA MARIANA 213 BOTAFOGO 
RJ TEL 286 7842 



BANCO DE DADOS... 



a combina^ffo de informa^Oes de dife- 
rentes arquivos. Atualmente, contudo, 
aiguns desses programas permitem um 
trabalho simultaneo em mais de um ar- 
quivo, desde que estes possuam regis- 
tros fomiatados de maneira identica. 
Outro ponto fraco comumente aponta- 
do pelos usudrios sS^o as limitadas fun- 
90es de cAlculo matem^tico (como to- 
tals ou %). 

Estas limita^Cfes, inclusive, sSo o mais 
forte fator de diferencia^ab entre os 
programas gerenciadores de arquivos e 
OS gerenciadores de bancos de dados, 
embora mesmo dentro deste segundo 
grupo existam diversas op^Ses que va- 
riam em graus de sonstica^So e pre^o, 
que, no mercado norte-americano para 
essa faixa de sistemas, situa-se no inter- 
valo entre US$ 300 e 600. 

Os SGBDs, ao contririo dos progra- 
mas de arquivos, podem manipular mais 
de um arquivo por vez chegando at^, em 
aiguns casos, a "criar" novos arquivos, 
efetuando jun95es de segmentos dos 
arquivos ji existentes. Permitem ainda 
fazer sorts por multiples campos-chaves 
e definir campos que sSo calculados a 
partir de outros, utilizando, via de re- 
gra, fun9oes matemdticas complexas. 

Os mais simples mantem a constru- 
9^0 atrav^s de menus, enquanto que ai- 
guns SGBDs mais sofisticados sffo guia- 
dos por um conjunto de comandos, que 
embora levem a uma maior flexibilidade 
de aplica90es exigem, em contrapartida, 
um maior esfor90 no aprendizado. Es- 
tes sistemas, concebidos para processor 
grandes volumes de dados, geralmente 
inciuem linguagens pr6prias para obje- 
tivos especfficos, que permitem progra- 
mar aplica9des person alizadas e s9o de 
ficil entendimento para os que conhe- 
cem o idioma Ingles, dado a semelhan- 
9a com a Unguagem natural. Para os que 
quiserem entender mais sobre esses sis- 
temas, aconselhamos a leitura do artigo 
**0 dBase II, por etapas", publicado em 
MS nP 38, pigina 110. O dBase II 6, 
sem diSvida, o mais bem-sucedido SGBD 
para micros do mercado. 

Aqueles, contudo, que pretenderem 
fazer uso dessas linguagens de desenvol- 
vimento oferecidas por certos SGBDs, 
cedo ou tarda terSo que se aprofundar 
niuna outra questSo, que ao usudrio do 
sistema 6 inteiramente transparente, pe- 
lo grau de detalhamento t^cnico. Esta 
questSo implica em estudar os mdtodos 
usados pelos SGBDs para armazenar, 
organizar e relacionar a informa9So. 



Mercado Farto 



Entre produtos genuinamente nacionais, tradu^Ses, semi-tiadu^des ou simples c6pta8 
piratas, o interessado em adquirii uin software para gerenda de Bancos de Dados ou 
aiquivos teia divetsas op^des de sotu^fo di^onfveis.E,muito embora a oferta das lojas 
mais tradicionais geialmente seja limitada a dois ou ties dos tftulos mais famosos, e possi*- 
vel, vasculhando bem o mercado, encontrai aqui a maior parte dos pacotes SGBDs que fa- 
zem sucesso no mercado norte-americano. 

Apple, CP/M e 16 bits sSo indiscutivelmente as iinhas de equipamentos mais bem supri- 
das neste particular. O best-seller da area, dBase D, da software-house norte-americana 
Ashton-Tate, fundona sob MS-DOS ou CP/M para 16 ou 8 bits, e configura-se o mais com- 
plete SGBD suigido at^ o momento, possuindo, entie outros recursos, Unguagem pr6piia 
para desenvolvimento de aplicativos personalizados. De n/vel de soflstica93b similar, existem 
algumas op^Oes mais probtematicas paia serem encontiadas no Brasil, como o Knowledge 
Manager, da Micro Data Base Systems Inc., e o Condor 3, da Condor Computer Corp., am- 
bos rodando em 16 bits e CP/M. 

Em terras brasileiras, contudo, o dBase 11 - disthbui'do pela empresa Dataldgica - ain- 
da e' a op^o por excel€ncia para os que pretendem uma utiliza9S'o mais pesada. Seu pre90 i 
bastante variavel, e apesar dos esfor^os da Ashton-Tate para coibir as c6pias piratas, ainda se 
enoontram lojas que optam por oferecer o pacote "original". Detalhe: mesmo com o incon- 
veniente do manual nffo traduzido, o pre^o cobrado por esta copia foi, segundo nossa pes- 
quisa, mais elevado do que o da versffo traduzida pela Dataldgica. O dBase II tem seu pre{^ 
situado no intervalo entre 110 (Compushop) e 170.9 ORTN (Computique), e na empresa 
Servimec ele & comerdalizado em duas versOes: pessoal (140 ORTN) ou comerdal (190 
ORTN). 

Tambcm bastante ofertado pelas lojas € SPA Rep(vter, da Royal Software, um pacote 
simpies para linha Apple, vendklo a 14.5 ORTN. Segundo Luiz Roberto de Oliveira,.ana- 
lista da loja Computique, "o mais procurado' e o dBase II, mas nem sempre ele e o mais 
vendido, por causa de seu pre^o elevado. O que ocoire no mercado de software para BDs i 
que a venda e muito pequena, o que ocasiona o desinteresse das software-houses em desen- 
volver produtos novos; o que existe e simples aSpia e tradu^to. Poucos sabem que o SPA- 
Reporter e tradufffo do famoso PFS amaicano. Isto ocorre por falta de uma legisla^So es- 
peciTica". 

Um outro software para BDs que goza de boa reputa^So e o Datastsr, um produto para 
Apple e CP/M, desenvolvido pela MicroPro International e que era comerdalizado no Bra- 
sil pela empresa Approach Informdtica, de SSo Paulo. Oportunamente, contudo, a tambem 
paulista Brasoft fechou com a norte-americana MicroPro a representa9ao exclusiva de «u 
software no pai's, inclusive o poderoso Infostax, o que levou a Approach a tirar seu time de 
campo. 

Duas outras empresas tambem abandonararo a partida: a Compucenter, que nffo mais co- 
mercializa seus Compudata e Compufile, e a Compumax, que faliu e levou junto "suspei* 
to" pacote Micro/DB. 

Uma empresa bastante ativa na comerdaljza9S'o de software para Banco de Dados 6 a 
Intersoft Microcomputadores. Seus produtos sgo: PFS: File, um sistema para gerendamento 
de arquivos, desenvolvido pela SH amoiicana Software Publishing Corp., e que pecapor sei 
um tanto lento. £ compati'vel com Apple 11, e nos EUA ja existe a veisSoparao IBM-PC. 
A empresa comercializa-o com manual em Ingles por 6 ORTN. O DB Master, consideiado 
um SGBD de sofistica^So media, desenralvido pela Stoneware Inc. para o Apple II, mfnimo 
de 48 Kb. sai, com manual em Ingles, por 11 ORTN. (Nota : uma nova versSo - o Advanced 
DB Master - foi langada pela Stoneware, para rodar tambem no IBM-PC.) O ViaiFile e um 
ge^ndador de aiquivos da Visicorp, que roda no Apple II, e seu pre^o fica em 12 0R7X. Ja 
Visidex, progiama para controlar arquivos pessoais no Apple, da Personal Software, custa 
11 ORTN. Para a linha TRS-80, a Intersoft comerdaliza o Profile Plus, desenvolvido pela 
Radio Shack para seu modelo III com 48 Kb. Considerado um SGBD de m^dia sofistica^Sb, 
Profile possui algumas fUn^Ses matematicas e fadlidades para o trabalho integrado com 
editores de texto. Bastante conheddo no meio dos usuiiios TRS, o progiama serviu de "es- 
pelho" para certos BDs nadonais de linha TRS-80, como o DigFile, da Digitus, e i comer- 
dalizado por 15 ORTN. 

Ainda no rol dos softwares estrangeiros, convcm ressaltarmos o Quick-Tile, gerenciador 
de arquivos para o Apple lie, nSb encontiado nas lojas daqui, e o Versaform, um SGBD de- 



ela Applied Software Technology para o Apple e IBM-PC e que e oferecido aqui 
Dftware. 



Neste aspecto, temos que os sistemas 
gerenciadores da informa93o dividem-se 
em SGBDs relacionais, os mais comuns; 
SGBDs hierlrquicos e sistemas em rede. 
Para uma breve introdu9ao ao assunto, 
sugerimos a leitura do texto "Adminis- 
tra9a'o de Dados e os micros", de auto- 
ria dos professores Antonio L. Furtado 
e Daniel A. Menasc^, da PUC-RJ, publi- 
cado nestaedi^^o. 



Todos OS astemas vistos at^ aqui 
pressupOem, na maioria dos casos, apli- 
ca90es autdnomas, nas quais o valor da 
informa93o € medido pela utilidade que 
ela assume perante o usuirio. No enta- 
to, a utiliza9So isolada do micro perde 
terrene a cada dia e a palavra de ordem 
i integra9a'o. Neste caso, quando o volu- 
me de dados que precisamos acessar 
e manipular supera nossa capacidade ii- 



senvolvido 
pela Royal 

Dentrc as empresas nadonais que se dedicam ao assunto, a Monk Micro Informdtica - 
oferece dois programas: o Data-Manager, que e um SGBD similar ao Profile, guiado por me- 
nus e possuiiido senha para prote^o de dados (CrS 450 mil, em dezembro), e o Data-File, 
um programa paia gerenciamento de aiquivos em fita cassete. Tambem compati'vel com os 
modelos TRS, ele e vendido a Q$ 300 mil. 

A empresa Microarte oferece dois produtos afms: o Microdats, paia Apple II com 48 Kb, 
Integra ao BD funfdes de grificos e edi^o de textos e custa 11.2 ORTN;eo Microdata II, 
um Banco de Dados hierarquico tambem para o Apple, e custa 14 ORTN. 

Um gerenciador de arquivos e'o que oferece, por 60 OKT^, a. Atrium Engenharia. com 
Sistema Atiium de [nformafdes Pessoais. Este progiama, que constroi fichas cadastrais, e 
compatfvel com o TRS modelo 111. Tambem a ^ftscience possui um programa para criapjo 
e manuten^So de aiquivos pessoais, o Colect, para TRS-80 em disco ou fita. Paia o DOS do 
Apple, a EAC. do engenhdro Enio Garbini, possui o Micro Banco de Dados, guiado por 
menus, a 11 ORTN. 

Mais vottados paia a automaf 7o de escrit6rio estSo dois pacotes nadonais. Um deles i o 
Controle de Documentos-Fluxo de Infoima^Oes, daA/icn? Consult, sobre oqual n£o tlvemos 
muitas informa^Oes. O outro e o Gerenciador de Documentos e Compromissos Estendido, 
voltado para equipamentos C3*/M. Este sistema, da Promicro. e composto de modules in- 
dependentes, e os modules Biblioteca e Agenda sSo os que, efetivamente, apresentam uma 
aplica^o direta de arquivamento. Cada mddulo custa 15 ORTN. 

Como curiosidade, vale dar uma olhada no Programadoi Robot, um aplicativo desenvol- 
vido em Unguagem Fancy, composto de um conjunto de piogramas voltados a manipula^So 
de dados. £ compatfvel com o caxtfo Fancy, da Hengesy stems, e seu pre^o ^ de 20 ORTN. 
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sica de armazenamento, ou mesmo 
quando o retomo dbtido peto uso dos 
dados nSo compensa o esfor90 e inves- 
timento envolvidos no "monop6Uo", ou 
ainda em casos de dados fomecidos por 
terceiros, lan9a-se mSo da informa9ao 
compartilhada, seja sob forma de redes 
que dividem arquivos de dados ou de 
real acesso a servi90s de Bancos de Da- 
dos existentes no mercado e, quase sem- 



pre, explorados comer ciaimente. Neste 
caso, o valor da iiiforma9a^o 6 medido 
por seu potencial de venda. 

Nos EUA, indiscutivelmente o mer- 
cado mais dvido pelo uso de processa- 
mento eletrdnico das informafOes, nU- 
mero de Bancos de Dados oferecidos aos 
usu^os de micros 4 enomie, e neste 
grupo prefo dos servi90s varia bastan- 
te. Recente edi9ffo da revista norte-ame- 



ricana Byte (outubro de 84) declara 
que, segundo estudos realizados, foi de- 
monstrado que um uso intensivo dos 
servi90s comerciais de BDs pode custar 
ao usuirio cerca de US$ 100 por hora 
de acesso e pesquisa e ainda que, em se 
fazendo um levantamento cuidadoso do 
mercado, pode-se chegar a economizar 
algo em tomo de 50% dos custos com 
este tipo de servi9o, tal a heterogeneida- 
de de pre90s cobrados pelas diversas 
empresas. Os principals servi90s ofere- 
cidos sSo cota95es e previsOes referen- 
tes aos mercados de a9des ou commo- 
dities; informa95es referentes ^s condi- 
90es climilticas em diversas partes do 
mundo; noti'cias divulgadas por jomais 
ou agendas intemacionais, informa9Ses 
tdcnicas e atualizadas sobre pacotes de 
software e equipamentos populares; no- 
vidades tecnol6gicas; bolsa de empregos 
e primeiros-soconos. Dentre as empresas 
que comercializam este tipo de servi90s 
estffo a CompuServe Inc., Dialog Infor- 
mation Services Inc., Dow Jones, News- 
Net, e Source Telecomputing. 

No Brasil, por enquanto, as op90es 
de Bancos de Dados ainda sSo poucas. 
As empresas mais ativas neste setor sSo 
a Embratel (que tem no CirandSo e 
Renpac seus principals servi9os), a Te- 
lesp (sistema Videotexto) e o Serpro, 
com o servi90 Amanda. Nesta edi9ffo, 
o usuirio poder^ se inteirar das ativida- 
des e OS mais recentes lan9amentos da 
Embratel neste setor, lendo a reporta- 
gem "Micros mais prdximos das bases de 
informa9Ces". 

Falar em Bancos de EJadds, contudo, 
envolve imimeros pontes relevantes para 
serem abordados. Entre eles, seleciona- 
mos uma discussSo, bastante em voga 
atualmente, sobre a privacidade do ci- 
dadSo, ao tomar-se, ele mesmo, um "da- 
do" dos BDs do Estado. 

Procuramos, assim, supiir nossos lei- 
tores com um material b^^co que iii 
esclarecer o que vem a ser os tSo badala- 
dos BDs e seus sistemas de gerenciamen- 
to. Complemen tamos a edi9So com a lis- 
tagem de um SGBD inteiramente de- 
senvolvido por nosso colaborador Ivan 
Camilo Cruz e pronto para ser utilizado 
pelos usuirios da linha TRS-80. Veja 
ainda neste numero um coment^rio so- 
bre OS softwares de Bancos de Dados 
disponiveis no mercado nacional. , 
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BANCOS DE DADOS — Cresce o numero de BDs, onde 
dados de milhares de pessoas sao manipulados, e tambem 
a discussao em tomo do direito do cidadao a privacidade 



A questao 
da privacidade 



Luzia Portinari Gregg io 



Oprocesso de informatiza^ao 
da sociedade. e inserida a 
questao dos tmensos BD com 
dados pessoais dos cidadSos, 
pode conduzir a uma situa9ao onde as 
desigualdades se cristalizem irreversivel- 
mente com o aumento do controle so- 
cial. Outra nSo tern sido a preocupa9ao 
daqueles que acreditam que a Informa- 
lica tambem pode ser um instrumento 
de reformula^ao social, poli'tica e econo- 
mica, possibUitando a descentraUza^ao 
do poder e a socializa9ao das informa- 
95es de interesse publico. 

processo de informatiza^ao da so- 
ciedade 6 eminentemente polftico e sob 
este contexto deve ser encaminhado, 
mas, para que a sociedade possa condu- 
zi-lo, deverd adquirir mecanismos de 
controle para a sua prdpria gestao demo- 
cr^tica. E este, evidentemente, nao d um 
caminho fdcil e nem seri resolvido em 
gabinetes. 

O Brasil, atualmente, i o oitavo par- 
que computacional do mundo, o que 
evidencia um rdpido e irreversCvel pro- 
cesso. No entanto, nSo dispomos de ne- 
nhuma legisla^ao para a prote9ao dos di- 
reitos humanos, das liberdades publicas 
e privadas, e da privacidade frente i in- 
cr^vel potencialidade da Inform^tica, 
pels esta permite a posse e manipula9ao 
por grupos (privados ou o Estado) de 
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dados sobre os cidadSos (ou empresas), 
possibilitando assim um controle social 
global. 

Nao i sem fundamento que Matte- 
lard afirma que os processes de informa- 
tiza9ao da sociedade sempre navegam na 
semi -clan destinidade. E no Brasil, apesar 
de nao termos legisla9ao (nem debates) 
sobre o assunto, temos assistido a for- 
mula9ao de imensos BD (PIS/PASEP, 
RAIS, IR, TRU etc.), onde os dados sao 
usados, cedidos trocados, cruzados e 
vendidos sem o conhecimento do inte- 
ressado, numa clara afronta aos direitos 
dos cidadSos. 

O uso abusive de informa9Ces encon- 
tra no Brasil uma s^rie inilndivel de 
exemplos contundentes e que nem mes- 
mo sao questionados. valor jurfdico 
da informa9ao (ou de dados) situa-se 
numa^eacinzenta.emqueo cidadSo^ 
sempre perdedor. projeto RENAPE, o 
Documento unico, o projeto Eleitoral 
sSo algims exemplos de todo o processo, 
e que eventualmente nao s3o negatives, 
desde que acompanhados de uma legisla- 
95o especifica. 

UM POUCO DE HISTORU 

Em 1968, a Assembl^ia Geral da 
ONU, atrav^s da Resolu9ao 2450, ini- 
ciou o debate sobre a questlo da prote- 



9S0 dos direitos humanes e, prindpal- 
mente, da vida privada em vista das no- 
vas tecnolegias.O consenso em rela9So a 
estes preblemas tern sido prejudicado, 
de certa forma. em virtude de os pai'ses 
de Terceiro Mundo estarem muito mais 
preocupados com as quest5es relativas i 
dependencia tecnol6gica e cultural do 
que cem a prete9ao do cidadSo. De qual- 
quer forma, a resolu9ae foi de funda- 
mental importancia para acirramento 
das discussOes e, em 1970, a Provincia 
de Hesse, na Alemanha Federal, aprevou 
a primeira legislafSe conhecida, e em 
1973 entrou em vigor a lei sueca: Ekita 
Act. 

Dois fatos marcaram ^poca no debate 
sobre o problema de prote^ao da priva- 
cidade: o case Watergate, nos EEUU, e o 
projeto SAFARI, na Fran9a. O caso 
Watergate, em 1972, foi tide como pefa 
fundamental para a aprova9ao do Ihiva- 
cy Act, em 1974. E atualmente, apesar 
das limita95es estaduais, existem diver- 
sas outras leis ji aprovadas (ou em pro- 
jeto), inclusive com a extensao de sua 
competencia para a ^ea privada. 

projeto SAFARI — Sistema Auto- 
matizado para os Fichirios Administra- 
tivos e o Repert6rio dos Indivi'duos — 
pretendia criar, atrav^s de um numero 
unico, um cadastro com todos os dados 
disponi'veis sobre as pessoas ffsicas. 
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uantomais 
comphxo lor um sist&ma, 
mais solida e coniiavsl 
deve ser sua base 
Quando voc^ tem um 
micro da Unitron come 
principio inteUg&nte. voce 
tamh^m tem a cerleza de 
que o atendimento de 
suas necessidades em 
processam ento de dados 
estd assegurado E a 
paiavra de quern 
trabalha continuamente 
para oterecer uma 
fecnohgia sempre atuat 
ao usui^Tio. E o que os tatos demonstram. 
Nasua caiegoria, o Unitron andou sempre na 
irenie. Alem de contar com uma infinidade de 
programed, testados e aprovadas. os mais 




dtversilicadas acess6rtos 
de expansao - enire 
m6du!os, inteiiaces e 
perHericos -.0 Unitron 
agora pode ser 
conectado. via ieleione. a 
todos as redes existentes: 
Amanda. Ciranddo. 
fnterdala. Cyber 
Videoiexto. CMA, etc Ou. 
entdo, as redes 
particulares. acessando 
outros micros ou 
comunicando-se com 
computadores de grande 
porie, na fun^do de 
terminal inteligente Porianto, se voce deseja um 
processamento de dados com qualidade. tale 
com nossos re vendedores au torizados. Para cada 
caso. uma solu<pao inteligente Do principio ao lim. 






unitron 
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projeto despertou tamanha indigna^So 
nos franceses que, nao so motivou a for- 
mula9ao de toda a legisla^ao francesa a 
a respeito, como tamb^m culminou com 
a forma9ao da Comissao Informatica e 
Uberdades, que produziu vasta literatu- 
ra sobre o assunto. como os famosos Re- 
latorio da Comissao de 1975 e o de Si- 
mon Nora e Alain Mine sobre a "Infor- 
matiza9ao da Sociedade", em 1978. 

AtuaJmente. 22 pai'ses do mundoji 
possuem tegisla9ao especi'fica visando a 
prote9ao das liberdades em rela9ao ao 
uso de cadastres informal izados, sendo 
que quase todas surgiram de longos deba- 
tes da sociedade civil e suas associa96es. 

Em 1980, Conselho da Europa 
aprovou um lexto sobre o tratamento 
automatizado de dados pessoais, ji subs- 
crito per dez paises. A paitir dai, foi 
criada uma Comissao para estudos e re- 
comenda9oes sobre problemas especifi- 
CQS, cuja preocupa9ao maior tem sido, 
sobretudo. a de uma nova abordagem do 
Direito Publico, objetivando principal- 
mente um desenvolvimento democr^tico 
das sociedades informatizadas. 

Em setembro de 1980, 21 paises 
aprovaram as recomenda9oes adotadas 
pelo Conselho de Ministros do OCDE 
(Organiza9ao para Coopera9ao e Desen- 
volvimento Economico) a respeito da 
prote9ao da vida privada e de garantias, 
a nivel intemacional, de um fluxo de 
dados seguro e regular. Quanto a esle 
ultimo, a OCDE identifica tambem a ne- 
cessidade de que se assegure o funciona- 
mento do fluxo de dados transfronteiras 
(FDT) como, por exemplo, entre ban- 
cos, reservas de passagens e tambem na 
comunica9ao entre mairizes e filiais de 
empresas multinacionais. 

Assim, o problema da informatiza9ao 
nSo coloca em risco apenas a integridade 
do ser humano, mas tambem a propria 
no9ao de soberania nacional. Sobre este 
tema os paises do Terceiro Mundo tern 
colocado as suas preocupa95es, e o Bra- 
sil vdhas vezes manifestou suas posi95es 
de defesa de nossa cultura, do desenvol- 
vimento tecnolbgico e de seguian9a 
nacional. 



ALGUNS PRINCIPIOS 

Os textos da OCDE e do Conselho da 
Europa nos dao. fundamentalmente.,al- 
guns pontos bdsicos sobre a defesa e a 
prote9ao das Uberdades publicas e indi- 
dividuais: principio da nao fidedignida- 
de (loyaule ) - os dados nao devem ser 
coletados ou tratados quando tiverem 
procedencia nao fidedigiia ou Ui'cita; 
principio da exatidao - piessupoe a 
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obriga9ao em verificar a exatidao dos 
dados, assegurando-se a sua permanente 
atualiza9ao; principio da finalldade - a 
finalidade da cria9ao de um cadastre de- 
ve ser definida anteriormente, possibili- 
tando. em qualquer momento, a verifi- 
ca9ao se: os dados coletados e arquiva- 
dos estao de acordo com a finalidade de 
sua solicita9ao (principio de pertinen- 
cia), OS dados nao estao sendo usados 
com objetivos diferentes dos correspon- 
dentes a finalidade do cadastre (principio 
de utiliza9ao nao abusiva), a conserva- 
930 dos dados nSo excedeu (em termos 
de tempo) ao permitido para atender as 
finaiidades iniciais (com exce9ao dos 
dados nao nominais); principio da publi- 
cidade — deve ser pubUca a existencia 
dos cadastres com dados nominais; prin- 
cipio de acesso individual - 6 direito de 
tede cidadae conhecer os dados existen- 
tes a seu respeito e em caso de erro 
(inexatidao ou procedencia ilegal) tam- 
bdm € direito contestar ou destniir estes 
dados; principio de seguran9a — deverao 
ser temadas medidas de seguran9a para 
manter a integridade des cadastres. 

Al^m destes. que jd fazem parte da 
legisla9ao de imimeros paises, eutro 
principio comefa a ter importancia para 
a discussao da privacidade: o direito de 
acesso, por todos os cidadSos. as infer- 
ma9oes administrativas de interesse pu- 
blico. Este principio, que consta na le- 
gisla9ao de quase todos os paises. de for- 
ma impli'cita eu explfcita. pede-se tor- 
nar viavel operacionalmente e por este 
motive tem sido insistentemente lembra- 
do como ponto de partida para a sociali- 
zajae das inferma96es. 

O CASO BRASILEIRO 

No Brasil, desde 1975 ja feram apre- 
sentados vaiios projetos de lei tratando 
sobre este tema, e tedos eles. exceto o 
projeto da Deputada Cristina Tavaies 
(em 1981) que ainda esta em tramita9ao 
ne Senado, foram retirados ou vetados. 
Este projeto em tramite dispoe sobre a 
divulga9ao. pelo poder Executive, do 
elenco de BD existentes no pais, com 
indica9ao do universe abrangide e o tipo 
de informa9ao. 

Mas, deflnitivamente, o problema 
nie se exaure em algumas Unhas da 
legislafae. £de fundamental importancia 
que sejam estabelecidos mecanismos de 
operacionaliza9ae facti'veis, dentro de 
uma reformuIa9ao de Peder Judicidrie e 
envolvendo mudanfas nos c6digos Civil, 
Penal e na prdpria Constitiii9ao. £ preci- 
se que se aproveite e momente de rede- 
mocratiza9ao do pais para a cria9ao nao 



s6 de uma legisla9ae, mas de mecarus- 
mes peh'licos que permitam o real cum- 
primento da lei. 

Com esta inten9ae, e censelhe de In- 
formdtica e Direitos Humanos, criado 
pela ANDEI come 6rgao colegiado de 
varias entidades (Associa9ao de soci61o- 
ges, Federa9ao Nacional de Jornalistas, 
ABI, Institute de Engenharia partidos 
pelitices e varias entidades da areajuri- 
dica, entre outras), estji elaberando su- 
gestdes para que esta Iegisla9ao abranja 
todos OS universes possiVeis, e tambem 
incentivando o debate em eutras areas 
nSo especi'ficas da comunidade de Infor- 
matica, nam trabalho de base junto a 
toda a sociedade. ■ 



INFORMACOES UTEIS PARA QUEM TEM, OU NAO TEM O MICRO. 



Luzia Portinari Greggio atua na ima de PD hi 
16 anos. 6 ex-Presidente da Associapio dos 
Profissionais de Processamento de Dados do 
Estado de Sao Paulo, e Presidante do Conse- 
lho de Informatica a Direitos Humanos. sendo 
tambem Consultora Tunica da ravista Infor- 
m^tica & Administrafao. 




A MANEIRA INTELIGENTE 

DE FAZER ECONOMIA 

Duplica a capacidade 

dos seus disquetes 5% 



O 



ho 



fl 










o 


hlO 




o 


c 


]U 


o 


\ ^ 



Fapa \A o seu pedido 
Prepo de Lanpamento: 

CrS 49.000,00 

ceivi\dii\ 

Rua Jos6 Maria Lisboa, 580 

Tel.: 287-4716 - CEP 01423 

Jd. Paulista • Sao Paulo - SP 








AJilcres faz de sua empresa o seu Show Room 

microcomputadores 
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levam ate voce toda sua estmtura de Marketing. Conheca 
OS CP300 e CP500 aliados ao alto desempenho da Impressora 
P500 e na configuracao exata do seu problema. 

A FJIcres oferece aos seus usuarios assistencia tecnica 




autorizada Prologica 




, completa biblioteca 



de software, diversificada linha de suprimentos, alem de 



treinamento gratuito de operacao 
Basic 





e linguagem 
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BANCOS DE DADOS — 

Aqui esta um mini gerente 
de dados pratico e eficiente, 
para os micros da linha 
TRS-80. Experimente . . . 
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HINI SISTEM de GERENCIA de BANCOS de DADOS 

H* Veruo i.a ««» 
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Um gerente pratico 
em banco de dados 



O banco de dados i um programa que auxilia o usud- 
rio na tarefa de armazenar e recuperar dados de for- 
ma eficiente. Neste artigo focalizaremos um siste- 
ma de gerencia de banco de dados, trazendo um 
programa para tal e detalhando o modo de utiliza-lo. 

Escrito em linguagem BASIC para micros da linha TRS-80 
modelos I e III, este artigo esti dividido em cinco partes: 
. Como criai um banco de dados. 
. Como introduzir e recuperar dados. 
. Como indexar dados. 
. Como imprimir dados. 
. Observa96es gerais de implementafao. 

COMO CRUR BANCOS DE DADOS 

A cria95o do banco de dados compreende, em piimeiro lu- 
gar, as defini95es de todos os campos da ficha e sua divisao pe- 
las telas. A ficha 6 um conjunto de campos e mensagens dividi- 
dos em varias telas de video, sendo a menor unidade lida ou es- 
crita pelo gerenciador no disco, ii a tela 6 o conjunto de cam- 
pos e mensagens que sao impressos e/ou lidos de cada vez, en- 
quanto que o campo e a menor imidade de informa^Ses arma- 
zenavel pelo banco de dados. Uma ficha ou uma tela e um con^ 
junto heterogeneo, isto ^, de v^os tipos de dados, enquanto 
um campo 6 homogeneo, ou seja, cont^m informa^oes de ape- 
nas um tipo. 

Caracterfsticas de um campo: 
1 - NOME; string de caracteres que identifica o campo. Deve 
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ser tinico em cada tela. O tamanho m^ximo te6rico do nome 
de um campo 6 de 255 caracteres. 
Regras de forma93o de nomes: 

um nome deve come9ar com uma letra e pode ser seguido 
de letras ou numeros; ou um nome deve come9ar com " ' " 
(pUc), sendo seguido de um ou mais caracteres quaisquer, in- 
clusive brancps, e deve termtnar com " ' '*. 

2 - POSI^AO: a posigao em que o campo deve aparecer na 
tela. Um campo nao deve ocupar a primeira ou as tres ultimas 
linhas da tela. 

3 - TIPO : tipo do dado que sexi armazenado no campo. Os ti- 
pos possiveis e seus respectivos si'mbolos sao: String ($), Intei- 
ro (%). Real (!) e Real de Precisao Dupla (#). 

4 - TAMANHO: tamanho do campo em caracteres. tama- 
nho miximo teorico de um campo 6 de 254 caracteres. 

5 - DECIMAIS : numero de casas decimals do campo. Caracte- 
ristica que se aplica somente a campos num6ricos. 

Estas defini96es se tomarao mais claras com um pequeno 
exemplo prdtico. Vamos criar um banco de dados para armaze- 
nar as fichas fimcionais dos empregados de uma fuma. Os cam- 
pos que compoe esta ficha sao: NOME, PAI, MAE, DATA DO 
NASCIMENTO, EST. CIVIL, CONJUGE, IDENTIDADE, OR- 
GAO EXPEDIDOR, CARTEIRA PROFISSIONAL, SERIE, 
CERTIF. de RESER VISTA, TrTULO ELEITORAL, SE^AO, 
ZONA, CIC, ENDEREgO, CIDADE, ESTADO, DATA DE 
ADMISSAO, CARGO, SALARIO. 

Estes campos sSo divididos em duas telas como mostram as 
figuras 1 e 2. 
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Agora deveremos rodar o programa e selecionar a op9ao 1 
do Menu Secundario 1 - ABRIR/CRIAR UM BANCO DE DA- 
DOS, (figura 3). programa pedird entao o nome do banco a 
ser usado. Esse nome e uma seqiiencia de um a oito caracteres 
alfanumericos, sendo o primeiro obrigatoriamente alfab^tico. 
Fornecido o nome, o programa iii procuri-lo no disco e se for 
constatada sua inexistencia. seri feita a pergunta: O BANCO 
DE DADOS NAO EXISTE. QUER CRIA-LO?. A essa pergunta, 
responda S. Em seguida a pergunta NUMERO DE TELAS?, 
responda 2. 

Depois disso, o programa pedir^, luna a uma, as defini95es 
dos campos da tela 1 (figura 1). Sendo assim, digite os dados: 

N0HE,1£8,*,30 

PAI, 271, $,30 

MAE, 335, $,30 

'DATA DO NASCIf1ENT0',384,*,8 

'EST. CiyiL',512,$,l 

CONJUGE, 532, $,30 

IDENTIDADE, 640, $,12 

'OR'GAO EXPEDIDOR ',674,$, 12 

'C. PR0FIS.',704,$,ie 

'BERIE ',738, $,12 

'CERT. DE RESERVISTA',76B,$,15 

O primeiro parametro € o nome do campo, o segundo 6 sua 
posi9ao na tela, o terceiro e o tipo, o quarto e o tamanho. Cam- 
pos num^ricos tern um quinto parametro, o numero de casas 
decimals, que deve vir depois do tamanho. 

Note que o nome de alguns campos vem entre " * " (plies). 
Isso ocorre devido a presen9a de caracteres especiais no nome. 
O campo SERIE possui dez espa^os no final de seu nome ape- 
nas por motives est^ticos. 

Ap6s entrar com todos os campos digite "." (ponto) e o pro- 
grama assxmiird o fim da defini9ao dos campos desta tela. A se- 
guir ele pedird o numero de mensagens da tela. Mensagem 6 
uma constante que aparece na tela jimto aos campos com fins 
documentais e/ou esteticos. Como a tela de que estamos tra- 
tando possui duas mensagens, responda com 2. Em seguida, o 
programa pedird a posi9ao e o conteudo de cada mensagem. 
Responda: 
82 

*** FICHA FUNCIONAL *** 
256 
FIUACAO 



--- TELA - I 

FICHA FUNCIONAL 



NOHE I 

FIL1AC.-.0 PmI ! 

MftF : 

DATA DO NASrirtENTO i 

EST. Civil : : r( 

IDENTIDADE : 
C. PSOFIS. : 
CEflT. OE HESEHyrSTA i 



OflGAO EXPEDIDOK 
SERIE 



Figura J 







-ri L A - :: 








TIT. FLCiT. : 


- 


SESSAO : 




ZONA ! : 


CIC 1 


'■ 








FNDERECO : 
CIDADE J 




: 


ESTADO 


I 
t : 


DiUA DE ADnlSriAl) 
SALARIO ) 


n.ooB 


I CARGO 


' 













Figura 2 
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-MENUS DO SISTFMA- 



MENU PRINCIPAL 

-- 1 - AnRIR/CRIAR/MODlFlCAR/APAGAR BANrOS 
—I- ? - INSERIR/MODIFICAR/APAGAH/PROCURAR DADOB 
-'- 3 - INDEXAR/DESlNDfXAR DADOS 
-!- 4 - CRTAR/MODIFICAB/EXECUTAH RELATORIOS 

! 5 - FIM 

I 



V 
MENU SECUNDARIO - 1 

ABRIR/CRIAR UM BANCO DE DADOS 
MOOIFIHAH A DESCRICAO 00 BANCO 
APAGAR O BANCO DE DADOS 
FECHAR BANCO DE DADOS 

RETORNAR AO MENU PRINCIPAL 



y 

MENU SECUNDARIO - 2 

1 - INSERIR DADOS 

2 - INSERIR SOBRE FICHAS APAGADAS 

3 - LOCALIZAR/DELETAR/MODIFICAR DADOS 

4 - RETORNAR AO MENU PRINCIPAL 



y 

MENU SECUNDARIO - 3 

1 - ABRIR UM fiRQIJiyO DE INDICES 

2 - FECHAR f.RQUIUO DE INDICES 

3 - CRTAR UM AfiOUiyO DE INDICES 

4 - APAGAR UM ARSUIVO DE INDICES 

5 ' RETORNAR AO MENU PRINCIPAL 
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MENU SECUNDARIO - 4 

1 ~ CRIAR DESCRICAO DE RELATORIO 

2 - MODIFICAR DESCRICAO DE RELATORIO 

3 - APAGAR DESCRICAO DE RELATORIO 

4 - IMPRIMIR 

5 - RETORNAR AO MENU PRINCIPAL 



y 

ITENS A MODIFICAR 

i - CARACTERISTICAS DA IMPRESSORA 

Z - CARACTERISTICAS DO CABECALHO 

3 - CARACTERISTICAS DO DETALHE 

4 - CARACTERISTICAS DO RODAPE ' 

5 - RFTORNA AO MENU SECUNDARIO 



-FIG - 1 



Figura 3 



Observe que se o conteudo da mensagem contiver os delimi- 
tadores "," (vfrgula) ou ":" (dois pontos), a string deveri ser 
fomecida entre aspas. EntSo o programa mostrar^ sua tela e 
perguntard: GOSTOU?, responda S ou N, se voce respondeu 
positivamente, o programa repetiri todo o ciclo para a segunda 
tela. Caso contririo, pedir^ modifica^Ses nos campos, um a um. 

Antes de modificar um campo, voce pode querer saber os 
valores atuais de cada uma de suas caracterfsticas. Para isso, di- 
gite "?" e eles serSo impresses. Caso nSo se deseje fazer modifi- 
cafSes neste campo, basta digitar ENTER e ele permaneceri 
inalterado . 

Para modificar o valor de apenas uma caracterfstica, nao ^ 
necessdrio redigitar toda a defini9So, basta digitar as vfrgulas e 
o valor a ser modificado. Por exemplo, suponha que voce le- 
nha enado a posifao do campo IDENTIDAbE. Para corrigi-lo, 
digite ",640,;'. 
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UM GERENTE PRATICO EM BANCO DE DADOS 



Pode ser necessirio tamMm incluir ou retirar urn campo. 
Para incluir digite "+", e um novo campo em branco sera acres- 
centado antes do atual. Da mesma forma, se for digjtado "-", o 
campo atual sera eliminado. 

Ap6s passar por todos os campos, digite novamente "." e a 
modificafao terminard. Em seguida, o programa perguntard pe- 
los novos valores de posi9ao e conteudo das mens^ens. Caso 
nao houver alterafoes a fazer, digite apenas ENTER. Em caso 
de modificafoes, digite o novo valor e ele substituir^ o anterior. 

As defini^oes dos campos para a tela 2 sSo; 

'TIT, ELEIT.',ie8,$,8 

SESSA0,155,$,5 

ZONA, 176, $,5 

CIC,a56,$,12 

EN[iEREC0,384,$,40 

'CIDAOE ',443,*, 20 

ESTAD0,488,$,E 

'DATA DE AD.HISSA0',576,$,8 

CARG0,609,$,£0 

SALARro,640,tt,14,a 

Observe que o campo CIDADE tem dois espa90s no final de 
seu nome. A tela 2 nSo tem mensagem. 

Apos defmir todas as telas o computador gravari a descri- 
530 do banco de dados em um arquivo no disco com o nome 
escolhido por voce e com a extensao "/DSC". Criard tamb^m 
dois arquivos para center os dados com extensoes "/DTO" e 
'/DTI'. 

COMO INTRODUZIR E RECUPERAR DADOS 

Para introduzir dados no banco, selecione a op^So 1 do Me- 
nu Secundirio 2 - INSERIR DADOS (figura 3). O programa 
mostrara a tela 1 de sua ficha pronta para ser preenchida. A 
op9ao 2 ser^ vista mais adiante. 

Virias teclas de controle podem ser usadas para auxiJiar o 
preenchimento da ficha. As setinhas i direita e a esquerda mo- 
vem o cursor um car^ter a direita ou a esquerda, respectivamente. 
As setinhas para baixo e para cima movem o cursor para o pr6- 
ximo campo e para o campo anterior da tela, respectivamente. 

As teclas CTRL+2 CTRL+W passam para a pr6xima tela e 
voltam a tela anterior, respectivamente. Os micros compatfveis 
com TRS-80 modelo III nSo possuem a tecla-CTRL. Ela 6 si- 
mulada pressionando-se ao mesmo tempo SHIFT e a setinha 
para baixo. Para mais detalhes, consulte o capftulo 4 do Manual 
de Opera9ao e Linguagem BASIC do CP-500. 

Selecione a opfao 3 e voce poder^ pesquisar, modificar e 
apagar suas fichas. Esta op9ao tamb^m tem virios comandos 
de controle. A tecla "?" Ihe mostrara umalistadosdisponfveis. 

As teclas setinha para baixo e setinha paia cima passam, res- 
pectivamente, para a pr6xima ficha e para a anterior. As teclas 
";" e "/" passam. respectivamente, para a primeira e ultima fi- 
cha. Os comandos CTRL+Z e CTRL+W tem a mesma funfSo 
anterior, ou seja, passam telas. 

comando E permite modificar a ficha. Quando se usa essa 
tecla, as de controle voltam a teramesmafun93oquepossuiam 
no momento da inser9ao. 

A tecla A apaga uma ficha. Na verdade, nSo hi uma elimina- 
fao fi'sica da ficha. Este comando apenas coloca uma marca ne- 
la. Quando se usa a op9ao 2 do Menu Secundirio 2 - D^SE- 
RIR SOBRE FICHAS APAGADAS, em vez de ser criada uma 
ficha nova, a ficha inserida substitui a apagada. comando R 
retira a marca da ficha e deve ser usado antes de se inserir uma 
nova ficha, ao usar a op9ao 2. comando F faz pesquisas no 
banco de dados, o que s6 sard visto mais adiante. 
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COMO INDEXAR DADOS 

A indexa9ao de banco de dados 6 uma tdcnica de programa- 
9ao que permite organizar e selecionar fichas do banco. m^- 
todo de indexa9ao empregado sao arvores binirias. 

Para se criar um arquivo-indice, selecione a 00930 3 do Me- 
nu Secunddrio 3 - CRUR UM ARQUIVO DE INDICES. Esta 
op9ao necessita de tres parametros: o nome do arquivo- fndice 
(que conter^ a Srvore bindria), o campo-chave e a condi9ao de 
indexa9ao. O nome do arquivo-indice segue as mesmas regras 
de forma9ao dos nomes de b3ncos de dados. 

O campo-chave 6 um dos campos do banco que i usado co- 
mo parametro da index39ao. Ele pode ser qualquer um dos 
csmpos do banco, desde que tenha um tamanho manor ou igual 
a 248 C3r3cteres. nome do campo-chave deve vir entie " ' " 
(pUcs), se ele contiver caracteres especiais. Se o campo nao 
pertence a tela 1 , seu nome deve ser seguido pelo niimero da 
tela a que pertence, entre parenteses. Por exemplo' 'CIDADE' 
(2). 

A condi9ao de indexa9So 6 uma expressSo Ibgica que selecio- 
n3 3s fichas do banco que serao inclufdas no arquivo-indice. A 
sintaxe de uma expressao 16gica 6: 

<EXPR. RELACIONAL) [ <0P. LQGICO) (EXPR. RELACIONAL> ] ... 



Os colchetes indicam que o seu conteOdo 6 opcional. As re- 
ticenci3S indicam que o conteudo dos colchetes pode ser repe- 
tido. < OP.LOGICO > pode ser "." (AND) ou "+" (OR). A 
sintaxe de uma <EXPR. RELAaONAL> 6: 



{CAMPO) t "(" <tt TELA) " )" ] <0P. RELACIONAL) (CONSTANTE) 

O niimero da tela 6 obrigatdrio quando q campo nSo pertence 
i tela numero 1. <0P. RELACIONAL > pode ser: = (igual), 
< > (diferente), < (menor), < = (menor ou igual), > (maior), 
> = (maior ou igual). A < CONSTANTE > deve ser uma string 
entre aspas para campos do tipo "J" e um niimero p3r3 os ou- 
tros tipos de c3mpos. 

Sao exemplos de expressSes 16gicas: 

NOIIE )■ "I" . NO»E ( -J" 
HOnE ' "I" * NONE >= "J" 
SALARIOCE) )i' EOOOOOO . 'CIDAOE '(S)'"RiD it Januiru" 

A primeira expressao serve par3 selecionar apenas as fichss 
cujos nomes come9am pel3 letra "I". A segunda, para retirar as 
fichas cujos nomes come9am pela letra "I" e 3 terceira expres- 
sao serve para selecionar as fichas de altos funcion^os residen- 
tes no Rio. 

Todos OS bancos de dados tem um campo pr^-definido que 
se chama 'APAGADO?'. Este campo 6 do tipo "J" e assume o 
valor "S" se a ficha estiver apagada e "N" em caso contririo. 
Isso permite ao usudrio selecionar ou eliminar, da indexa9ao, 
as fichas marcadas como ap3g3das. Por exemplo, a expressao 
'APAGADO?' = "N" eliminari da indexa9So todas as fichas 
marcadas como apag3das. 

Quando um arquivo -fndice esti aberto, o banco de dados 
ap3renta estar ordenado pelo campo-chave e apenas as fichas 
que foram inclufdas no arquivo-indice ficam acessi'veis. 

Todas as inser9&es feitas no banco de dados serao automa- 
ticamente incluidas no arquivo-fndice que estiver aberto. Os 
outros arquivos- in dices que, pot ventura, banco possua, per- 
manecerao inalterados. 

Quando um arquivo-indice estiver aberto voce poderi usar 
o comando "F" da op9ao 3 do Menu Secundirio 2 para locali- 
zar uma ficha por seu campo-chave. programa pedird uma 
constante para pesquisa. No caso de o tipo do campo-chave ser 
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"$", nao i necess^o fomecer todo campo, apenas uma par- 
te dele 6 suficiente. Por exemplo: para localizar "Antonio Er- 
mirio de Morals" bastari fomecer a string "Antonio". Aten9ao: 
3S asp3s nao devem ser usad3S. 

A op9ao 2 do Menu SecundSrio 2 - INSERIR SOBRE FI- 
CHAS APAGADAS — nSo pode ser empregada quando ha um 
arquivo-fndice aberto. 

COMO IMPRIMIR DADOS 

Este programa oferece a possibilidade de se cri3r relat6rios 
com bast3nte fiexibilidade. Antes de se executar um relatdrio 6 
precise descrever o que 6 urns PAGINA DE RELAT6RI0- Tra- 
t3-se d3 menor unidade impressa pelo program3 em um3 im- 
pressora. £ composta de tres partes: o cabe93lho, o detslhe e 
rodap^. A descri9ao da pdgina tambim inclui a descri9ao da 
impressora para a qual foi feita. 

Ap6s selecionar a opgao 1 do Menu Secundirio 4 - CRIAR 
DESCRIt AO DE RELAT(5RI0 - o comput3dor pedird o no- 
me do arquivo de formato da impressao. Nele ficarao armaze- 
nad3S as descri9oes da impressora e da pagina. O nome deste 
arquivo segue a mesma regra de form393o do nome do banco 
de dados e seii gr3v3do no disco com extensao "/FMT". Ap6s 
isso, o computsdor pedird a descri9ao da impressora, que con- 
siste do numero de colun3S, numero de linh3s e sequenci3s ini- 
cial e final. 

As seqiiencias inicial e final sao conjuntos de caracteres es- 
peciais transmitidos para a impressora antes e depois de se pro- 
cessar o relatbrio. Com isso, pode-se modific3r automat icamen- 
te 3lgum3S caracterfsticas da impressora, como o tamanho das 
letras, conjunto dos caracteres usados etc. Para saber quais 
sio OS car3cteres especi3is da impressora que voce estd usando, 
consulte o manual, pois eles nao sao padronizados. 

Para entrai com essas sequenciss deve-se digitar os c6digos 
numericos dos caracteres. Um miximo de 255 i permitido pa- 
ra cada seqiiencia. Para encerrar a entrada em uma seqiiencia 
basta digitar ENTER. 





PABA IMPRESSOBAS DE 132 COLUNAS 




CABECALHO 




#de 


linlias - B 




TABULACAO 


CONTEUDO 
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1 

28 

1 

D 


"R 


Ivaxla) 

(vaxia) 

ELACAO DE FUNCIONABIOS" 

( vazia) 

130 ■"-" IhitenBl 

"NOME(3nENDERECO(25ICIDADEI9)ESTADtr 

130 '-" (hifens) 

(vazial 




A posicao 


do contsdor de poginas e : iinha • 4 
coluna ■ 100 


Oba: 


OB numeroa encrc parinte&is na linha 6 devetao ser subBti- 
tuldoa por urns qusntidade igual de espocos. 




DETALHE 




#de 


col una a ■ 4 




TABULACAO 


CAMPO 


15 

B9 
113 


ROOAPfi 


HOME 

ENDEBBCOf 2 1 
'CIDADE "(2) 
ESTADOtil 


*da 


linhaa - 4 




TABULACAO 


CONTEUDO 



I 






(valla) 

130 ■-" (hifonB) 

Ivaiiai 

(vszial 


Obs: 


rodape nao 


tera contador de paglnas. 



PARA IHPSESSOHAS DE 80 COLUNAS 


CABECALHO 


* de linhas • 9 


TABULACAO CONTEUDO 


D (vaiia) 


(vazia) 


17 'RELACAO DE FOSCIONARIOS" 


( va z i a ) 


1 78 "-" (hitensl 


18 "N0ME(31 lENDERECO" 


46 "CIDADE! 9 JESTADO" 


1 78 "-" {hifenal 


(vazial 


DETALHE 


# de colunas ■ 4 


TABULACAO CAMPO 


4 NOME 


36 ENDEREC0(21 


36 'CIDADE '(2) 


S3 ESTAtX)(2) 


# de linhas de separa^ao ■ 1 


Obs: Como a tabula^ao da terceira coluna (campo CIDAOE) cai sobre 


c campo anterior, esta coluna sera irnprcBSS una linha abaixo. 


Portanto, cada ficha ocupara duas llnhss. 


RODAPt 


' de llnhas - 4 


TABULACAO CONTEUDO 


(vazial 


1 78 •-■ (hifens) 


(vazia) 


(vazia) 



Figura 4 
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Figura 5 

Ap6s descrever a impressora, deve-se descrever o cabe93lho, 
um conjunto de 3t6 10 linhas que 6 impresso no topo da folha 
de papel. Cada linha tem um3tabiila9aoeum conteudo. O con- 
teudo 6 uma string de caracteres que se contiver os delimitado- 
res "," ou ":" deverii estar entre aspas. 

Opcionalmente pode ser colocado no cabe9alho um conta- 
dor de p^ginas. Neste caso o programa pedird o numero da li- 
nha e da coluna do cabe9alho onde o contsdor dever& ser im- 
presso. Se a posi9ao dada ji estiver ocupads por um string ou 
estiver fora do cabe9alho, o programa rejeitard os dados. 

Em seguida deve-se descrever o detalhe, um conjunto de 1 a 
50 colunas, cada uma composta de um dos campos do banco 
de dados. 

Para cada coluna deve ser fomecida uma tabula9ao e um 
nome de campo. Se o campo nao pertencer ^ primeira tela, o 
seu nome deveri vir seguido do numero da tela entre parenteses. 
A tabula9ao deveri ser sempre em ordem crescente. No caso de 
se dar uma tabula9ao menor que a dada anteriormente, o cam- 
po conespondente seri impresso uma linha abaixo do campo 
anterior. Com esta caracterfstic3 podemos imprimir uma ficha 
maior que o tamanho da impressora. 

Por motivos est^ticos 6 habitual colocar ums ou mais linhas 
em branco entre C3d3 ficha. Para isso o programa pede o niime- 
ro de linhas entre as fichas logo apds 3 defini9ao das colunas. 

Depois de fomecida a descri9ao do detalhe, o programs pe- 
diii a descri9ao do rodape, que ^ igu3l 30 C3be9£dho em todos 
OS sentidos, diferenciando-se apenas pelo fato de ser impresso 
embaixo do detalhe. Vej3 n3s figur3s 4 e 5 exemplos disso. 

Um gabarito de impressSo pode ser muito util na cria9§o da 
defini9ao da pagina. 

Para executar um relat6rio jd definido, selecione 3 op9ao 4 
do meu principal. O programa pedird o nome do arquivo de 
formato que foi definido anteriormente. PedirS, tamb^m, uma 
condi9ao para a impressao. A condifao & igual em tudo i con- 
di930 de indexa9So. 

OBSERVACOES GERAIS DE IMPLEMENTAQAO 

Assim como todas as obras humanas, este programa tam- 
b^m tem suas limita96es. Vamos conhece-las: 
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UM GERENTE PRATICO EM BANCO DE DADOS 



CAMPOS POR FICHA - 200 
TELASPORFiCHA- 100 

MENSAGENS POR TELA - 10 

OPERA^OES RELACIONAIS - 20 

LINHAS DE CABECALHO - 10 

LINHAS DE RODAPfi ~ 10 

COLUNAS DE DETALHE - 50 

TAMANHO DE CAMPOS "$" - 254 caracteres 

VALOR DE CAMPOS "%" - Zll^^lZll^l 

VALOR DE CAMPOS "!" - 10*- 38/10** 38 (6digitosde 

precisao) 

VALOR DE CAMPOS " # " - 10'^=*38/l0-*38 (16 digitos de 

precisao) 

O programa utUiza varios arquivos de dados para armazenar 
descri96es e dados. Portanto, ao rodar o BASIC disco, devemos 
informar quantos arquivos serao usados. Em um caso extremo 
o programa podera usar ate 1 2 arquivos simultaneamente. Por- 
tanto. se voce esta usando NEWDOS-80, entre com o comando 
BASIC 12V ao rodar o interpretador BASIC. 

Para facilitar as modirica96es no programa. e aconselhdvel 
digita-lo com os comentarios. Entretanto, nao 6 possivel exe- 
cutar o programa com os comentarios. Por isso, apos digita-io 
e salva-lo em disco, execute o comando CMD"C" e salve a c6- 
pia compactada em outro arquivo. 



Ivan Camilo da Cruz domina vdrias linguagens de programafao, entre e/as 
BASIC. Pascal. FORTRAN. COBOL. PL/1 e Assembler. Tern experiSn- 
cia em computadores grandes. minis e micros. Atualmente faz um curso 
na UFRJ. onde trabaiha no Instituto de Qufmica desenvolvendo um sis- 
terns contSbil e outros programas administrativos. 



Gerenciador de banco de dados 



10 -NBDADOS/BAS - Gerenciadar de Banco de Dados - VER5A0 1.4 

30 ■•"■ INlCIALirflCOEB ■•■ 

40 '••••■■■!■■■•■•«■.•)»»•••■» 

50 CLS! CLEAR asnOJ OEFINT A-Zi CHO"BREflK ,N" 

60 FOR K'i TO 4B! REftD X, Yl, V? 

70 FOR I=X*4 TO X*6 STEP 2: FOR J=Y1 TO Y2: SFT(I,J)i NEXT Ji FO 

H J=Y2 TO Yl STEP -1: SET(I*l,J)t NEXT Jt NEXT 1 

EiO NFXI K 

90 DATA 0.0,20,4,3,S,e,i,8, 12,3,5, 14,0,20 

100 DATA 24, 3, 8, 24, 15. 17, 29,0,2,28,9, 11, 28. IB, 20, 32, 0,2, 32, 9, 11, 

32, 18,20,36,0,2,36,9.11 .3A, IB, 20,40,3, 5,40. 1 2,1 7 

110 DATA 48. 3, 1 7, 52. 0, 2, 52. 18, 20, 56, 0,2. 56, 18, 20, 40,0, a, iO. 12. 14 

.40,18,20,64.3.S,64.12,I7 

120 DATA 72,0,20,76,0,2,76,9, 11,76,18,20,80,0.2,90,9,11,80,18,20 

, 84. 0,^, 84, 9, 11, 84, 18, 20, 09,3, 8, 88,12,17 

130 DATA 96, D.i^O, 100, 0,2, 100, 18, 20, 104, 0,2, 104, 18,20, 100,3,5,108 

,15,17, 112,6,14 

140 PRXNT 9586, "NINI SI5TENA de GERENCIA de BANCOS de DADOS" 

150 PBIMTj PRIMT TAa<22)) "•■• Versao 1.4 •••" 

160 PRINT: PRINT TAB ( 1 l) ,"Copyr i ght (C) 1984 - Ivan Caollo da 

Cr.i2'- 

170 DIM BC*,C*,C,Cl,C:2,CH,CH«,C0,OUMHY».El.El»,E2,E2i.E3,E3i,e4, 

E4t.EC»,ED,E0!,EL0,EL05,Efi.F0,Fl,r2,F3.F4,F5,F7,FF,Flri,FM,FM»,I, 

11,12 

180 DIM lA, ir,!D. 104,11, J,Jl,J2,((,LI,LL,Ly,Nl.N2.N3,N4,ND,N6,N7, 

NB,N9.NA,NF.NP.0,0P»,P,PT,PG,PL,PB 

190 DIM BS,RAlZ,S4,Sl»,S2S,S0h5,TC,TD,T««,yil(,V2(( 

200 CR-1761 F6— H ST5»""J VR*»"««» HBDADOS - <Jers»o 1,4 ■»■ 

210 Cll""C"'-CHflt(9H-CH(I«(8>+CHR%(10>*CHR5(13>+CHHS(23)*CHRi<26) 
220 C21-"t"*CHR5(10)+CHR*(13)*";/-'"*(;HfiS(23)*CMR»<26)*"EeA«RrFf" 
230 S0M*=-'"1 FOR I-l TO 26! READ J: B0M«=SOM*+CH»K J) i NEXT I 
240 PT=UARPTR(SOH%) 

250 DATA 62,90,245,62.1.211,255,42.50.61,32,253,62.2,211,255,62, 
50.61.32,253,241 ,61,32,233,201 

260 DIM C5<50),CC*1200),CMi(I0.l0),CM<201 ,CTK20) ,DC< 200> , FM» 120 
0),(.4t(10>.L6t(10>,L0(20},NC(10) . NC«(200 > , NMt 10) , PI < 10) ,P2( 10) ,P 
C(200).PM(10,10),RL(20),T4(IO),T5(50),I6(10),TA(10),TC(200),TES( 
19) ,TP<200).TPSt4) ,TT<4),ZR5t4) 

270 TEKl ) = "Ar<iuivo vazio"! TE«<2)""Ca«pQ lnwalldo''t TE*(3) = "Ca« 
po nao ptrrtcnce 'a esta tela": TE»C4)""Tcla Invalida"! TES(S)""D 
escricao inexistent e"c Tet(6)-"Eu esperava un ■)■•' 
280 TE*<7>""Eu esperava am opcrador relacional"t TE1<8)""E>J ••pe 
rava •!■ string ou um nuwero": TE*(9>*"eM esperava un operador lo 
gico": TES<10> = "0 campo nao e' unico na tela"i TE4(ll)i'''A pagina 
e' nu i t o pcg-jcna" 



290 TEl(121="Nao e:<tste banco ae dadoft aberto"! Te*<131="Eu espc 
rava una *, "': TE%< 14 ) cPoa i tao invalida"! TEK IS )""Tai»anho Inva 
lido"> Tet{14)="Erro d« d>3CO"t TE»1 17 ) ="Ual 1 do aprnas ■■ arquiv 

OS seqijenc lais" 

300 TE»< lB)""Val ido apenas en arquivos tndcxBdo^"! TES( 19)-"Arqu 

I vo de indices tneHistente" 

310 TPJ(1)="«"! TP5(2>-"5!"1 TPS(3>-'-!"i TPt<4)-"tt" 

320 TT(2>=21 TTC3)-4» TT(4)»S 

330 ZRi<2)-MKU<0)J 2fi»<3>-HKS»<0) i 2HSC 4 )=MKD*( ) 

34D FOR I-t TO lOnnt NFVT I 

350 GOTO 10940 

360 ' 

370 ■ 

380 '■■■•■■■■■■■N><*«.»«.a>H*««<t 

390 '••■ fiOTINAS DE UIDEO •»■ 

400 '•«aaa«>aaaaaaa«aaHaa ■■««•■ 

410 ■ 

420 '■■■■■•■•■■■»■■•»*>*•■•■■■*«■**■■ 

430 •»•* LEITORA DO TECLADO - 1 *<« 

440 ■**••«•«•■«■«■■■*■■»■■■■■■*«««•■» 

450 'Entrai 1 - Tela altial, TP ( ) . PrC), PIO. P20, NCSO, 

460 ■ TCO, CR, CI* 

470 'Salt CC«() ~ Dados lidos 

480 'Deatroti J, K, II, 12, ED, PR, C», IC, FO, P, 8T», Rt 

490 • 

500 OOSUB 12701 GOSUB 1020i J<tp 1 ( I H K-P2(I}I F0=0 

510 Il=PC(J)+LEN(NC«<J))tl5362i I2=I1»TC( J) -I 

520 EO'Ili PR=PEEK<ED)i POKE ED.CR 

530 Ci-INKEYJi IF CI- — THEN 330 

540 ON INSTR(C14,C5)*1 GOTO 610,550.560,570,580.680,590,600 

550 POKE ED, PR: ED-Il-l: GOTO 440 

560 IC=1: QOTO 430 

570 IC — 1! GOTO 630 

5BD POKE ED.PRi ED"I2+1I GOTO 450 

590 GOSUB 680> I-I-li IF HI THEN I»NPi GOTO 500 ELSE 300 

600 GOSUB 6901 I=l*li IF I >NP THEN I-I : GOTO 500 ELSE 500 

610 IF A5C<C4)<32 THEN GOSUB 10700< GOTO 530 

420 F0--1I IC-H PR°A5C(CS) 'MDdfficacao na tela atual 

630 POKE ED.PRi ED=ED*IC 

640 IF ED<I1 THEN J»J-li IF J<P1(I) THEN J-K i SOTO 510 ELSE 510 

450 IF ED>I2 THEN J=J*U IF J)K THEN J-Pl(I>i GOTO 510 ELSE 510 

660 PR-PEEK(EDli POKE ED.CB 

670 GOTO 530 

400 IF NOT FO THEN RETURN 

690 POKE ED.PSi P-L>ARPTR (STt) 

700 FOR J-PK I> TO K 

710 It-PC(J>+LEN(NC«<J)}*153&2 

720 POKE P, TC<J) 

730 POKE P+1. II AND 255 

740 POKE P«2, I1/2S6 

750 IF TPCJ>.i THEN RS=STt ELBE IF TP<J)=2 THEN Bt-MKU< VAL< STt) 

) ELSE IF TP(J)-3 THEN R«-MKSS( VAL (ST*) > ELSE HS=MKDS( WAL (ST5> ) 

760 L5ET CC*(J)'-R« 

770 NEXT J 

780 RETURN 

790 ■■■■•(■■■a«a...««aa«aaaaa ■■■■«■• 

800 '"•■ LEITURA DE TECLADO - 2 »■" 

810 '■■•■■■«■■■■ ■«itaBiia«*aBfl«««««a« 

820 'Entra" K, TN, CR 

B30 'Sail Rt 

840 'Destrol > J, CS 

950 • 

940 R*»""i PRINT 9K,CHRfrCR)ti J"D 

B70 C*-INKEr»i IF CS""" THEN 870 

880 IF J=TM THEN 900 

890 IF C$>-" " AND CS<-"z" THEN R%=>RttC*i J=J«l! GOTO 930 

900 IF CJ^CHfiSdS) THEN PRINT BK+J." ",1 RETURN 

910 IF CJ-CHHK8) THEN IF J)0 THEN J-J-li R4=LEFTKRt . J) ELSE 97 



920 IF CS*CHBt(24> THEN PRINT 3K , STH ING«( J* 1 , " "},t GOTO 860 

930 PRINT SK, R4,CHR$<CR ) t" ", 

940 GOTO 870 

950 'aMaNvaaaMaaaaavaaHiiaHaa 

960 ■••■ DISPLAY DADOS ••• 

970 ■■«■•■*«*■>•■■■■«■>)■■■■■ 

980 'Entrat I - Nu«ero da tpla a ser nostrada, PIO, P20 , 

990 ■ PCO, TPO, FM50, NC5 ( ) , CC»t>, ELO, NF 

1000 'Oestroli J 

1010 ' 

1020 FOR J-PHI) TO P2(I> 

1030 PRINT a PC(J)*LENCNCS(J>)*2,[ 

1040 IF TP(J)-i THEN PRINT CCiCJ), ELSE IF TP(J)-2 THEN PRINT US 

ING FMt(J)t CUHCC5(J)); ELSE IF TPCJ)'>3 PRINT USING FH4(J)] CVS 

(CCf(J)>r ELSE PRINT USING FHI<J)| CUD(CCS(J)>, 

1050 NEXT J 

1040 OOSUB 1150 

1070 PRINT 3919, "FICHA •", NF [ 3983, "TELA -" , I, 

1080 IF ELO( )D THEN PRINT 3934, "APAGADA"t 

1090 RETURN 

1100 ■■■■■•■••■■■•■•■■aaaaaaaaa 

mo *■•• DISPLAY MOLDURA ■»• 

1120 '«■*■•«■■••)■■■■■■■■■■•■■#■ 

1130 'Entrat BC4, ID4, UR4 

1140 • 

1150 PRINT 316. URS; 

1140 PRINT 3832. CHRK15n ,STBING%(20,131 );CHR5<151 I;STRING»(14. 

131),CHHKI51) jSTRrNG»(9,131 > |CHR4< 151 ) jSTRINGl ( 16. 131 ) tCHRK 171 

)| 

1170 PRINT CHRS(149)5- BANCO ■ ", BC«i TA8 ( 21 ) iCHfi J< 149 ) ,TAB (36 

),CHRS(i49)|TAB!44),CHR»(l49),TAB<63>jCHHS(170)( 

liao PRINT CHR«(1491," INOICE = " , ID4 t TAB (21 ) iCHRfl 149) [TAB(34) t 

CHRK149),TA8(461tCHR%(149)fi POKE 16383,170 

1190 RETURN 

1200 ■■■■■•-■■■*■■*■•■■■■■■•«•• 

1210 '■•■ DISPLAY FORMATO •■" 

1220 ■•■■■■■aatia*«a.a.«iiii.Hi.aa* 

1230 'Enlrai- I - Nuwero da tela a ser nostrada 

1240 ' PCO, NCSO, TCO. PIO, P2(), NMO, PM(.), CMS< , ) 

1250 'Ocstrott J 

1260 ■ 

1270 CLS 

12B0 FOR J-Pl (I) TO P2(I) 
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O CP/M, fim dos mals populares sistemaspperacionais para Micro- 
computadorefi e o TRSDOS e seus simtlares, com uma popularjdade equi- 
valentea do GP/M^estaojuntosagoranonovissimoIMAJASOOda Kemi- 
tron.Com issio, passa a estar disponivel para um so computador a mais 
extensa biblipteca de software jamais reunidaJ 

O NAJA 4SQi^I!lHIIl*^^®*9" ^^^ acompanha as mais recentes tenden- 
c i a s m u n d i a i ^TvrDEDTCF^'S^i^tABftdfiS^caq 
nitorde 1 2"d ^Jt9 r ft .wlM0 § 0rQp e r a nosfn^^ 64X1 6 



e 32X1 6, em ttydWliiyi(i^Hit^)(^(]^ reverse. Sua CPU \lem com dois drives de 5 
1 /4" emputidose possui 5 slots para conexao delexpansoes. Sua memo- 
rla principal possui 128Kem RAM e 14Kem EPriOM, onde esta gravado 
o interpretador basic. O teclado 6 do tipo qwert com 7Q.teclas e o numeri- 
co redu2iESTTif^§^fBcias:sag:gtQg£g^i^^ uslua|i 

Alem Qi ^sistemasoperacionalsTi^Wygnc^^ 

meiro equipamento brasileiro a operar com o novissirnoCP/M 3. OdaDi- 
gital Research. 

Opcionalmente o NAJA 800 pode serequipadocom placa dealta reso- 
luQao grafica (640X240 pontos), disco rigido tipo Winchester, disco de 
8", comunicagao serial e sintetizador de voz. 




ilMfflli ITD«. 



AV, CONTORNO. 6048 - SAVASSI BELO HORIZONTE - MG 

TEL (031)225-0644 

TELEX: (031) 3074 KEM- BR 
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MICRO SISTEMAS, fevereiro/85 



1290 PRINT a PC(J), NC;t(J)(" i-',STRING*(TC(J>," ")i"f- 

1300 NEXT J 

1310 IF NM<I)=n THEN 13SD 

1320 FOR J»l TO NMtI> 

1330 PRINT a PM(I,J), CM»<I,J)( 

1340 NEXT J 

1330 RETURN 

1360 ' 

1370 ■ 

13B0 '■■■■•<• ■M»H<tNK*NK*Hfl*l.>l«N*«« 

1390 ■■•• ROTINftS DE ACESSO •#» 

iAoa •••••••••••••••■«■■■■■■•»■«« 

1410 • 

1420 '■!•■■■■*»■*«•»■■«»» 

1430 '•■•■ PRIMEIRA ■■■• 

1440 ■•■••■••■•■•. •••••• 

1450 'Entral ID, F7 

1460 'Sal: NF, II. El, E2, E3, E4, CH4, ER , CC»( > 

1470 ■Dc3troit II 

1480 ' 

1490 EB-l: IF NOT F7 THEN IF FIM-1 THEN RETURN ELSE NF-l i Efi-Oi 

GOTO 24B0 

1500 IF RAIZ-O THEN RETURN 

1510 Il = m II"fiAIZ 'flponta para a no rali 

1520 GOSUB 2390 'Lc regtstra 

1530 IF ElOD THEN II»Eli GOTO 1520 

1540 IF E4-D THEN 1790 

1550 NF-E4I ER^Oi GOTO 2480 

1560 ■■<•»«■«•■■*■«««■• 

1570 ■■»« ULTIMA "»" 

ISBO ••••-•••••■•■■■■» 

1S90 *Efitr»i ID, F7 

1600 'Sail NF, II, ei, £2, E3, E4, CHS, EH, CC$(> 

1610 'OeGtroii II 

1620 ' 

1630 EH-ll IF NOT F7 THEN IF FlM-1 THEN RETURN ELSE NF«F1M-1» ER 

-Oi GOTO 24B0 

1640 IF RAIZ-0 THEN RETURN 

1650 Il-IIl II=>RAIZ 

1660 GOSUB 2390 

1670 IF E2( >0 THEN II>=E3: GOTO 1660 

1680 IF E4-0 THEN 1920 

1690 NF=E4i ER«Oi GOTO 2460 

1700 '••••■•■■•■••■••■■ 

1710 '■•• PROXIHA ••■ 

1720 ■•■•■■•■■••••((•■).» 

1730 'Entra! II, ID, E2, E3, F7 

1740 'SbII NF, II, El, E2, E3, E4, CHS, ER , CCK) 

1750 'DcstrDli II, lA 

1760 ' 

1770 ER"li IF NOT F7 THEN IF NF*1)=FIM THEN RETURN ELSE NF-NF+lt 

ER-Oi GOTO 24B0 

i7BD Il-II 

1790 IF E2O0 THEN Il-E2t GOTO 1320 

1800 lA-IIi II-E3I IF II-l THEN II-IH GOTO 23?D 

laiO GOSUB 2390 

1820 IF El-IA THEN IF E4-0 THEN 1790 ELSE NF=E4t ER'O: GOTO 2490 

ELSE 1800 

1830 'MaM*»«)t«*<t»BMI>*M*<t 

1840 '••■•• ANTERIOR '»» 

1850 '■••■••■••■•••••■•n 

I860 'Entrii II, ID, El, E3, F7 

1870 'Sal: NF, II. El, E2, E3, E4 , CHf, ER , CCS( ) 

1880 -Destroli 11, lA 

1890 • 

1900 ER-li IF NOT F7 THEN IF NF<-1 THEN RETURN ELSE NF-NF-1 i ER- 

01 GOTO 2480 

1910 Il-II 

1920 IF E1()0 THEN II-EH GOTO 1660 

1930 lA-IIi II-E3I IF II-l THEN II-IH GOTO 2390 

1940 GOSUB 2390 

1950 IF E2-IA THEN IF E4"0 THEN 1920 ELSE HF-E4J ER-Oi GOTO 2480 

ELSE 1930 
i960 '■•■•■••■•••••■■» 
1970 '••• INCLUI «•• 
1980 '••■-iiini«K»»«»«ii» 
1990 'Entral ID, CC»0, NF, CM, F7 
^000 'Sa I : II 
2010 'Dcstroi 1 FF 

2020 * 

2030 GOSUB 25901 IF NOT F7 THEN RETURN 

2040 FF=L0F<ID>*1 

2050 IF RflIZ-0 THEN LSET Elt»»MKIl<FF H II-I: RAIZ-2: GOTO 2160 

2060 II-RAIZ 

2070 GOSUB 2390 

2080 IF CC«(CH1-CH* THEN IF E4-0 THEN LSET E4«-MKIt(NF)! PUT ID, 

III RETURN 

2090 ON TP<CH) GOTO 2100, 2110, 2120, 2130 

2100 IF CCKCH) < CHS THEN 2150 ELSE 2140 

2110 IF CUKCCtICK)) < CVKCHSI THEN 2150 ELSE 2140 

2120 IF CyS(CCttCH)> < CUSCCHS) THEN 2150 ELSE 2140 

2130 IF CVD(CC5(CH1) < CVO<CH*) THEN 3150 

2140 IF E2()D THEN II-E2I GOTO 2070 ELSE LSET E25-MK IStFF ) i OOTO 

2160 
2150 IF EiOO THEN II-EH GOTO 2070 ELSE LSET Elt"MKliCFF) 
2160 PUT ID, II 

2170 LSET El*»MKItCOH LSET E2t-EUi LSET E3t-MKIS(II) 
2180 LSET E4S-MKIS(NFH LSET CHS-CC«tCH)i PUT JD,FF 
2190 II-FFi GOTO 2390 
2200 •■••■•»•»■-■-•».••«. 
2210 '■■■ PE5QUISA ■«•> 
2220 '••»•«••■••)«••■••■« 
2230 'Entral RaIZ, 10, ST« 

2240 'Sail NF, II, El, E2, E3, E4, ER, CC50 
2250 'Deslroli U 

2260 ' 

2270 ER-Oi Il-IIt II-RAIZ 

22B0 IF II"0 THEN EH-ll II-IH IF IIOO THEN 2390 ELSE RETURN 

2290 GOSUB 2390 

2300 ON TP(CH) GOTO 2310,2320,2330,2340 

2310 IF LEFTS(CH<.LEN<STS))°5TS THEN 2350 ELSE IF LEFT5(CH«, LEN< 



STt>l)ST5 THEN 2360 ELSE 2370 

?320 IF CUl(CH»>=CyHSTS) THrw 2350 ELSE IF CWI (CHS ) >CUI<STt) TH 

EN 2360 ELSE 2370 

2330 IF CUS<CH$)=CVS<STS> THEN 23S0 ELSE IF CVSfCHS) >CyS< ST5 > TH 

EN 2360 ELSE 2370 

2340 IF CVD(CHS>=CUD(STS) THEN 2350 ELSE IF CUDCCHS ) >CyD(STS ) TH 

EN 2360 ELSE 2370 

2350 IF E4-0 THEN 2370 ELSE NF-E4! GOTO 2480 

2360 II=Elt GOTO 2200 

2370 ri-E2i GOTO 2280 

2380 *••••• PEGA REGISTRO INDICE »»im»» 

2390 GET ID, II: Ei=CUI (E1SHE2-Cur (E2S1 iE3=CUI (E3*) lE4=CVI(E4S> 

2400 RETURN 

2410 ■■••<■<•)• ■••■■■■•••■•a 

2420 ■"•■ LEITUHA ••» 

2430 '■»■•■•»■ •■ 

2440 'Entra: Nfl . NF 
2450 'Sail CCIO. ELO 
2460 'Oestroi: I 

2470 ■ 

2400 FOR I-i TO NA 

2490 GET l.NF 

2500 NEXT t 

aSlO CLO=CVI(ELOS>: IF ELO-O THEN CCS<0>-"N " ELSE CC»(0)-"S " 

2520 RETURN 

2S30 'i»i<ii<>i<i*»««*»M>ii« 

2540 '•■■ ESCRITA ■«• 

2550 '■**K«i*H<ta«<iH«««« 

2560 'Eotrat NA, NF, CC»( ) , ELO 

2570 'Destroi i I 

2sao ■ 

2590 LSET ELOS-HK I*(£LO> 

2600 FOR lai TO NA 

2610 PUT I, NF 

2620 NEXT I 

2630 RETURN 

2640 ' 

2iS0 ' 

2660 '••■^•■■■■■Nvkita* 

2670 '•!■ AVALIA »»» 

2AQ0 i><a.>i.>« 

2490 'Entra: CMO, RLO, CTS( ) , LG( ) , TP ( ) , CCS( ) 
2700 'Sail F3 - Resultado da aval lac ■□ 
2710 'Destroi l I, OPS, F4 

2720 ' 

2730 I"0! F3-0t OPS-"*" 

2740 F4-0 

2750 ON TP(CH(I)> GOTO 2B60, 2760, 2770, 27B0 

2760 Vm-CVKCCStCml))) 1 U2»t=Cyi(CT»(I)H GOTO 2790 

2770 Vm-CVS(CCS(CM(I)))t i,l2lt-CVSCCTS[ I ) ) i GOTO 2790 

37B0 VtH'CUD(CCl<CM<I)))i V2N-CVD<CTS( I > ) 

2790 ON HLd) GOTO 2800, 2810, 2B20, 2830, 2840, 2B50 

2B00 IF ViH ■ U2tl THEN F4— H GOTO 2930 ELSE 2930 

2810 IF Vltl <) y2« THEN F4--1 1 GOTO 2930 ELSE 2930 

2820 IF ym ( U2K THEN F4— It GOTO 2930 ELSE 2930 

2830 IF Vllt <- y2t< THEN F4=-li GOTO 2930 ELSE 2930 

2840 IF VIM ) y2lt THEN F4— It GOTO 2930 ELSE 2930 

2950 IF Ullt >- U2II THEN F4»-It GOTO 2930 ELSE 2930 

2860 ON RLtl) GOTO 2870, 2880, 2890, 2900, 2910, 2920 

2870 IF CCt(CH(I)> - CTSd) THEN F4— 1 1 GOTO 2930 ELSE 2930 

2880 IF CCS(CH(I>> () CT»(I> THEN F4—H GOTO 2930 ELSE 2930 

2890 IF CCS(CH(I]> ( CTSd) THEN F4— H GOTO 2930 ELSE 2930 

2900 IF CCS(CH<I>) <■ CT»(I> THEN F4--I : GOTO 2930 ELSE 2930 

2910 IF CCt(CM(I>) ) CTfdt THEN F4--li GOTO 2930 ELSE 2930 

2920 IF CC»(CH(I)) >- CT5<I> THEN F4— 1 

2930 IF OPS-"," THEN F3-(F3 AND F4) ELSE F3-(F3 OR F4 ) 

2940 0PS-CHRSCLOd)> 

2950 IF OPS-'-F" THEN RETURN 

2960 I-I+lt GOTO 2740 

2970 '•(•■■•«»«M«iiN*»iii>D«a 

2980 '■■• EXPRES5A0 ■■•• 

2990 '•■■•■•■■■•■■itBMaoM* 

3000 'Entral TC( ) , TE»( ) 

3010 'Sail F2, CM(), RL(1, CTSO, LG( ) 

3020 'Destroli K, PL, LL , I, ECS. Efi 

3030 ■ 

3040 LINE INPUT "CONDICAO - ", ECS 

3050 IF ECS-"" THEN F2-0t RETURN 

3060 K-Ot F2--1: PL-It LL-LEN<ECS) 

3070 GOSUB 33S0 

3080 IF EROO THEN GOTO 32S0 

3090 CNCK)-J 'Nuraera do campo 

3100 IF TKS-""" THEN 1=1 ELSE IF TK«-"<>" THEN 1-2 ELSE IF TKS-" 

{" THEN 1-3 ELSE IF TK»=-<-" THEN 1-4 ELSE IF TK5-">" THEN 1=5 E 

LSE IF TKS-">=." THEN I-6 ELSE ER-71 GOTO 3250 

3110 RL{K)=I 

3120 COSUB 3580 

3130 IF TKS<>"S" THEN 3170 

3140 I-TC<CM(K)] 

3150 IF LEN(STS)d THEN STS-STS+STR lNGSd-LEN( STS) , " ") ELSE ST» 

-LEFTS(STS,n 

3160 GOTO 3190 

3170 IF TK$<>"N" THEN ER=8i GOTO 3250 

31B0 I = TP(CHCK))t IF 1-2 THEN STS=HKH(yAL < ST* ) > ELSE IF 1=3 THE 

N STS=HKSS(VAL(STS) 1 ELSE STS=MKO$ ( UAL (STS ) ) 

3190 CTS(K)=srS 

3200 GOSUB 3S80 

3210 IF TKSO"." AND TKS< >" + ■' AND TKSO'T" THEN ER-9iG0TO 3250 

3220 LG<K)=ASC(TKS) 

3230 IF TKH)"F" THEN K-K + H GOSUB 3370t GOTO 3080 

3240 RETURN 

3250 PRINT STRINGS(PL+9," "); CHRS(94)[ " ERROM! - ", TES<ER) 

3260 GOTO 3040 

3270 '**•«•>•■■ «■*■■■■ 

3280 *•■■ CAHPO ••• 

3290 '■•■«■ MO •■■■■Hitii 

3300 'Entrat PIO, P2(), NCSO, ECS, PL, LL 

3310 'Sal: ER - Cod i go do erro OU 

3320 ' J - Indlce do caapo na tabela 

3330 'Dpfttroii I, RS 

n340 ' , ,- 



3350 GOSUB 3970 

3360 EB=0 

3370 GOSUB 3580 

3300 IF TKS< r-I" THEN EH=2: RETURN 

3390 RS-STS 'Salwa a namr do canpo 

3400 GOSUB 3r>Hn 

3410 IF TKS< )■'(■' THEN I = U OOTO 3490 

3420 GOSUB 3580 

3430 IF TKS< >"N" THEN ER=4: RETURN 

3440 I-UAL<STS) 

3450 IF Id OR I>NP THEN ER = 4! RETURN 

3460 GOSUB 3580 

3470 IF TKS<>")" THEN eR=fi: RETURN 

3480 GOSUB 3580 

3490 FOR J-Plcn + d"!) TO P?d) 

3500 IF NCS(J)=R5 THEN RETURN 

3510 NEXT J 

3520 ER=3: RETURN 

3530 '•■■•••••■•■•■■» 

3540 ■•■■ TOKEN ■•• 

3550 '•■■••••■••»•■«■ 

3560 'Sail TKS - Tipo do tok«n, BTS - Toksn 

3570 ■ — " 

35FI0 IF C»=" " THEN GOSUB 39701 GOTO 3580 
^590 STS--'-! TKS--"!" 

3600 IF CSO THEN 364n 

3610 ■■■■ CAMPO ENTHE PLICS 

36^0 GOSUfl 3970:1F CS' OR CS=r:HRS(01 THEN GOSUB 3970t RETURN 

3630 STS=STS*CSi GOTO 3620 

3640 If <CS<"A" OH CS)"7") AND (C5<"h" OR C*)"?") THEN 3680 

3450 ■■•• CAMPO 

3660 STS=ST*-fCti GOSUB 3970 

3670 IF (CS<"0-- OR CS)"9") AND (CS<"A~ OR C*)";"* AND (CSCa" O 

C%>"z"i THEN RETURN ELSE 3660 
3680 IF <CS<"0" OR CS)"9"» AND C*( >"-" THEN 3770 
3690 '••" NUHEBO 
3700 TKS-"N" 

3710 STS-ST1.*CS: GOSUB 3970 
3720 IF CD-'-'O" AND CS<«"9" THEN 3710 
3730 IF CSO"." THEN RETURN 
3740 STS=ST(tCS 

3750 005UB 3970J IF CS>="0" AND C%1="9" THEN 3740 
3760 RETURN 

3770 IF CK)CHR%(34> THEN 3810 
3780 '•■I' STHINB 

3790 GOSUB 3970: IF CS"CHRS(34) OR C»=CHRStO) THEN GOSUB 3970: T 
K4-"S'-i RETURN 
3800 STS=3TS*C*: GOTO 3790 
3810 IF CS<>''<" THEN 3860 
3820 GOSUe 3970 

3B30 IF CS«">- THEN GOSUB 3970: TKt=-()": RETURN 
3840 IF C$="=" THEN GOSUB 3970= TKS="(="! RETURN 
3950 TKS="<"1 RETURN- 
3B60 IF CSO")" THEN 38BD 

3870 GOSUa 3970: IF C*-"^" THEN GOSUB 3970: TK%-">="i RETURN ELS 
E TKS=")"! RETURN 

3890 IF CSOCHRS(O) THEN TKS-CS: ELSE TKS=''F" 
3890 BOSUB 3970: RETURN 
3900 ' «■••■• ■■"II «■.■>( «!.■■« 
3910 '■•• CAHACTERF •■" 
3920 ■■••■■•■•■■■••••■■■« 
3930 'Entral ECS, PL, LL 

3940 'Sal: CS - Promno caracterc na cadeia de entrada 
3950 'IncrcwcntaJ PL 

3960 ' 

3970 

3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4090 

4090 

4100 

4tl0 

4120 

4130 

4140 

> - 1 , ' 

4150 

4160 

4170 

41BD 

4190 

4200 

4210 

4220 

4230 ' 

424D PRINT Ht, NP 

4250 FOR 1=1 TO NP 

4260 PRINT (*1, Pld); P2d), NMd> 

4270 IF NHd)=0 THEN 4290 

4280 FOR J=l TO NHdJt PRINT (tl , FMd.J); CHRS(34)j CMSd.J); CH 

RS(34): NEXT J 

4290 NEXT I 

4300 FOR I-l TO P2*NP> 

4310 PRINT HI, PC<l)t CHfi*<34)j NCSdlj CHR1.(34)t TP (I > ; TC<ni 

Dec It 

4320 NITXT I 

4330 RFTUHN 

4340 '■..•..••••■••■■•••••••••■••■••■■■^■•■•••l 

43SD '••■ TRIA A DERCRICAO DOS AHQUIV05 ■«« 
4 360 '•■•■■■•■■. ■'•■•^■■^■■■■••■•'■•■•■■■■•■■■•a 
4370 'Entra: NP . P?(i, TC.(>, TP(), TTO 
4 380 'Sa. t NA. TAd, NC d 
4'tOfl 'Pfsl rtii : I t! 



IF PL>LL THEN CS=CHR$(0): RETURN 
CS=MIDS(eCS,PL,d: PL>PL*l: RETURN 

■■■■ LE DE5CRICA0 DA FICHA NO DISCO ■•• 

■Sai: NP, PId, P2(», NKd , PMl,), CMS(,». PCd , NCtd 

TPd, TCO, DCd, FMO 
'De«troli I, J 



INPUT ttt, NP 
FOR 1=1 10 NP 

INPUT Ml. Pld). P2d), NM(I) 
IF NM< I )=0 THEN 4110 

FOR ,J=I TO NHdU INPUT ttl, PMd,J>, CMStl.J): NEXT J 
NEXT I 

FOR 1=1 TO P2(NP> 

INPUT HI. PC<1). HCSd), TPd). TCd), DCd) 

IF TPdK>l THEN IF DCd>()0 THEN FMSd )-STR INGSdCd )-DC(I 
■tl"H-"."«STRINGS(OC<n ,-'tl") ELSE FH»(I )=STRINGSdCd ) , "«" ) 
NEXT I 
RETURN 

-■■■ ESCREyE A DE5CHICA0 DA FICHA NO DISCO ••• 

"Entral NP , Pld. P2d, NH{ ) , PM(,), CMS(.). PCI), 

NC5( I , TPd, TCC ), DCC ) 
'Destroi: I, J 



AAVK ■ 

4410 Th( I )=0j HV I 1 J=n 

4420 NA=1 'Nimern de an^'ilvas cif dados ijsadcis na banro 

4430 FOR .1=0 TO P?tNP) 

4440 ir TP<J)=:1 TUrN ir.=TC(J> EISF TC=TTCTP(J)> 

4450 IF TA(NA) >Tr>?55 THEN NA=NA*l: TA<NA)=0: NC(NA}"0 

4460 TA(NA)=TA'NAi iTC 

4470 NC(NAi=NC<NA>«l 

4480 NfXT .1 

4490 RETURN 

4500 ■•>■■ ».«■•■ •..«■»■. ■■■.... ....... 

45H) '■■■ ABRf OS ARQIIiyOS OF DADOS ■■• 

4r.30 'Fiitra: PCS, NA, NCd, TA( ) , TP <) , TC(), TTd, IDS 

4540 'Sai : FIM. LV 

4550 'Dpstroi: K. I, ID, J. TC. CH, ID 

4560 ' 

4570 K=0 

4580 FOR 1=1 TO NA 

4590 OPEN ■H".I,BC**"/OT"tCHRt(47*n,TAd ) 

4600 TD=0 

461(1 FOR J=l TO NCd ) 

46?(1 IF TPO{) = l THEN TC"TC(K) ELSE TC = TT(TPtK)) 

4630 FIEID I, TDX AS DUMMYS, TC2 AS CCS<K> 

4640 IO = TI)'TC: K=K'l 

4a50 NE^T J 

4A6n Nt'.T 1 

4670 FIELD 1 , ? AS El 0* 

4680 FIM=LOFdH IF F1M=0 THEN Fl M- 1 : IU=-1 ELSE GET l.FItli LV"C 

VKELOSl 

4690 F6=Ot RETURN 

4700 '■■■«.••■•■•«••.-■» ■■.■■■.■•.n..* 

4710 '■■• ABRE ARUUIVO OF INDlfF.S "•• 

4730 'Entra: NA, IDS, TP O , TIO, TCd 

4740 "lai! CH, F7. ID. RAIZ 

4/50 'Oestroi: I 

4760 • 

4770 ID=NA»2: OPEN "fl- . ID, IDS*"/IDX",8 

4780 FIELD ID, 2 AS EIS. A AS DUMMYS, 2 AS E4S 

4790 IF tOFdD)=0 THEN CLOSE IDi KILL IRS+'VIDX": F7=0: RETURN 

4B0n GET 10, |: HAI Z = CU I (E 1 $ ) : rH=CyHr4S): CLOSE ID 

4810 IF TP<CH)<>1 THEN I=TT(TP(CH)) ELSE 1=IC<CH) 

4fi2U OPEN ■'H",ID,IDS*"/IDX",8+I 

4830 FIELD ID, 2 AS EIS, 2 AS E2S, 2 AS E35, ? AS E4S. IX AS CHS 

4940 F7- I! RETURN 

4050 '•■•■•»•■«■•■■•• 

ABtiQ '"■■ FECHA .oif 

4870 '■■••■■■■■••■■•■ 

4S80 'fntra: FIH. LV 

4B90 ' 

4900 LSET ELOt=MKTS<LV> 

4910 PUT HI . FIM 

4920 CLOSF: BCS="": F6»-l 

4930 '■■■■•■•■■■ ■■■■•■■•■■■■VltlltiaHM.ttllMHHItlt 

4940 ■•■■ FEIHA O ARflUlyO DE IHOrcES ••■ 



24HOI Ly=ELO ELSE NF=FI 



4960 IF NOT F7 THEN RETURN 

4970 LLOSF ID: IDS-"" 

4980 F7-0 

4990 RETURN 

50D0 * 

SOlO • 

5020 '••■-■■■••.■■■•■■•■ 

5030 '■■■ ADICIONA *■• 

5040 •.••■.■••...■.•.•■. 

5050 IF F7 AND 0-? THEN ER=17: GOTO lOSlO 

5060 IF 0=2 AND Lyo-i THEN NF = Ly: GOSUB 

M: FIH=FIM*1 

5070 riOr>UB 10870: I-n GOSUB 500: CLO=0 

5080 GOSUB 2030 'Inclui no arqiiivu 

5090 PRINT 3944. "MAIS DflDOS''";: K=956i TM=1: GOSUB 860 

5100 IF RS = "3" OH RS'"s" THEN SDAD ELSE IF RSd"N" AND HSd"n" T 

HEN GOSUB 10700: GOTO 5090 

5110 RETURN 

5120 '■■■•■■■••■■•■•ii 

5130 '••• EDITA ■■" 

fjMO ■•■■■»•.■■••«»•■ 

5150 GOSUB 1490 'Primeira fitha 

5160 IF EfidO THEN lOStO 

5170 I-l 

5180 OOSUfi 1270 'Display formatci 

5190 GOSUB 1020 'Dl5pla<| dadr><i 

5200 PRINT 3944, "DIGITE COMANOO"; 91008. "<'>> P/30CORHO "| 

5210 CS=INKETS: IF CS="" THEN 5210 

5220 ON INSTRiC24,nSHl GOTO 5320, 5340 , 5390,5230,5240,5250 , 5660 . 

5260,5280,5440.54 40,5300,5300,5310,5310,5550,5550 

5230 RETURN .'(ENIER* 

5240 GOSUB 1490: GOTO 5170 '(,) 

52S0 GOSUB 1630: GOTO 5170 '(/) 

5260 I=I-l: IF Ki THEN I=NP •<Cfrl>*(U> 

5270 GOTO 5100 

5280 lEltli IF IINP THEN 1=1 '<Ctrl>t<Z) 

529P GOTO 5180 

SgOO IF El 0=n THI"N LSFT Fl OS = MK IStLV ) J PUT 1,NF! 

80* BOTn 5170 ELIJE 5210 '(A) 

5310 IF ELOOO THEN 5480 ELSF 5210 '<») 

5320 GOSUB 10700: GOTO 5210 'Conandu Invallito 

5330 ' ■"■ FICHA ANTERIOR •■■ 

5340 GOSUB 1900 

5350 IF EB = n THITN 5170 

5360 nOSUB 10700: PRINT aiOOB, -Pr i we i ra f\chti",i FOR K = l 10 400: 

NEXT K 

5370 GOTO 5200 

5360 ' ■•■ PROXIMA FICHA •■■ 

5390 ROPUB 1770 
5400 IF £R«0 THEN 5170 

5410 GOSUB 10700: PRINT ai008,"Ult I Ba ficha "[5 FOR K=l TO 400: 

NEXT K 

5420 GOTO 5200 

5410 ■ .■• rnilA •■•■ 



y=NF: OOiHIR 2t 



S 
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MICRO SISTEM AS, fBVBreiro/85 



MICRO SISTEMAS, fevereiro/85 
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UM GERENTE PRATICO EM BANCO DE DADOS 



5450 IF F7 THEN IF CCltCH><>CH* THEN LSEI £4t=nKmui: PUT IP,H 

t GOSUB 2030 ELSE BOSUB 2590 ELSE G0SU8 2S90 

54A0 GOTO 5170 

5470 ' '•■• RECUPERA •■• 

5460 Il^ELOt LSEI ELOl=MK lt<0 I : PUT 1 ,NF 

5490 J1=NF: NF=LV 'Salva o nunero da ficha em Jl 

5500 IF NF = Jl THEN LiJ=IU GOSUB 24901 GOTO 5170 

5510 GOSUB 2480 

5520 IF ELO-^Jl THEN LSET ELO»=MK I*( 1 1 H PUT 1 .NFS NF = .JU GOSUB 2 

4801 GOTO Si7D 

5530 NF'ELO: GOTO 5510 

5540 ' •■• PESauiSA •«» 

5550 IF NOT F7 THEN ER=16: GOSUB lOSlOi OOTO 5170 

55i0 CLSi GOSUB 1150 

5570 PRINT S256, "CHAWE =": K=264i TM=TC(CH)J GOSUB SiO 

55B0 ON TP(CH) GOTO 5590,5600,5*10,5620 

5590 ST$-RSi GOTO 5630 

56D0 STt=HKI*CVAL(Ri>) : GOTO 5630 

5610 STS-hlKSS<UAL(R() >i GOTO 5630 

5620 ST»=MK05<VAL(B5>> 

5630 GOSUB 227Di IF EB=0 THEN 5170 

S640 PRINT S5i2, "Nao encotitrei"! FOR KZ=i TO 500i NEXT K 

5650 GOTO 5170 

5660 CLS ■(-»> 

5670 PfiINT TflB(26)j"COI1ANDOS"t PRINT 

5680 PRINT TAB<5))"<C> - Ficha »ntpr lor" 

5690 PRINT IABC5>("CLF> - Provima ficha" 

5700 PRINT TA8(5> ,"(Ctrl >*(U> - Tela anterior" 

5710 PRINT TAQ(5) ("(Ctrl )t(;) - ProwiBa tela" 

5720 PRINT TAB<5)j"(,> - Priweira flcha" 

5730 PRINT TAB151t"(/> - Ultima fIcha" 

5740 PRINT TAe(5);"<E> - Edit* * flcha" 

5750 PRINT TAB(5);"<A> - Apaga a flcha" 

5760 PRINT TAB<5)."<R> - Recupera uma flcha apagada" 

5770 PRINT TflSC5)!"<F> - PHS<)iiis« por c ampo rliavf" 

57B0 PRINT TAe(5);"<ENTEfi> - SetarnA ao locnu prititipal" 

5790 PRINT: PRINT TABdO), "DIGITE fiUALOUER TECLA PAHA HETOHNrtR" 

5800 Ct''INKEyt! IF C«""" THEN 5800 ELSE 5180 
SBIO '««■■«<•*■*■■■>■« >■!•■■••■«■ 

59^0 ••■« ABRE/CfilA BANCO ■■• 
SB3a ■•-■•■II nil- «■■!.■ •■«•■■ 1.11 ••■• 

5840 'Sail BCi, NP. PIO, P2t ) , NMO, PM( , ) . CHK.J 

5850 ■ NA, TflO, NCO, NCIO , PCO, TP ( ) , TCO , DCO. FM*( ) 

5860 'Deslro.! 1, J, K, Jl , EC*, LL , PL 

5870 ' 

5880 IF NOT F6 THEN BOSUD 49001 PRINT 3907," "; 

5890 GOSUB 6710 

5900 NCl<0)«"APAGAOO^"j TP<0)=lt TC:(0»=2l K = l 

5910 ON ERROR GOTO 59/.0 ' 

5920 OPEN "I",l,eCt+"/DSC'' ', 

5930 ON ERROR GOTO n '. . 

SV40 GOSUB 4060 'Lc descrlcaa da f.cha ' ' 

5930 OOTO 6620 

5960 RESUME 5970 , . 

5970 ON ERROR GOTO * 

5980 PRINT 3704,. 1 INPUT "0 BANCO NAO EXISTE. OUER CRIA-LO";' R» 

5990 IF R*="N- OR RS="n" THEN BC«=""! RETURN ELSE IF R%< )"S" AND 

R%< >"s" THEN 5980 
6000 CLSi PfiINT: INPUT "NUNERO DE TELAS"! NP 
6010 IF NP<1 Ofi NP>10 THEN 6000 
6020 P2(0)=0 
6030 FOR I-l TO NP 
6040 PI (I >-P2(I-n*l 
6050 PRINT TAB (25), 'TELA H",I 

6060 PRINT "H CAMPO NOME, PO<;iCA0, TlPO, TAMANHO . DFCIMAIB" 

6D70 FOR J=PICI) TO 200 
6080 PRINT U^ING "HHItt ", J, 

6090 LINE INPUT EC* 
6100 IF EC«="," THEN ^450 

6110 IF EC« = "'^" THEN PRINT TAB ' 12) ;•' -"tNCit J)*" *, ''tPC< J) j ' , "(TP5 
(TP<JH t",",TC( J);! IF TP<J>«1 THEN PRINT: GOTO 6080 ELSE PRINT 
■'."lDC< J)i GOTO 6080 

6120 IF ECtO THEN AlAO 

6130 FOR Jl=20D TO IH STEP -1 

6140 DC<J1 1=DC<J1-1)! FHKJl >»FM»(,M-1 H NCK Jl )=Nr5( Jl - 1 ) = PCtJ 

1)=PC(J1-1>: TC(J1)=TC<J1-1H TP(JJ )'=TP<Jl-l >i NEXT Jl 

6150 0C(Jl)=Oe rrrt<Jl)=""t NC»(J1 )"""! PC<Ji t^Ol TC(Jl>"Oi TP(Jl 

)-Q[ GOTO 6080 

6160 IF ECtO"-" THEN 6200 

6170 FOR J1=J TO 199 

61B0 nCfJl )"0C< JIH )i FN«(Ji>-FN«<Ji + l>i HC«( Jl ) i=NC<< Jl«l ) i PC<J 

l)-PClJl*l)t TC(J1 )=TC(J1*1>: TP(Jl)=TP<Ji*l) 

6190 NEXT Jli GOTO 6150 

6200 LL=LEN(EC5H PL = 1 

6210 IF LL'O THEN 6440 

6220 GOSUB 39701 GOSUB HSBO 

6230 IF TK«()'-I" THEN 6S90 ELSE NCtfJl-STl 

6240 GOSUB 3580 

6250 IF J=P1(I) THEN 6290 

6260 FOR Jl=Pl(Ilt(t=l) TO J-1 

6270 IF NCiCJl )=NCS' J) THEN EH=10t GOTO 6660 

6280 NEXT Jl 

6290 IF NCV{J>="- THEN ER=?t GOTO 6660 

6300 IF TK«t>'-," THEN 6450 ELSE GOSUR 3580 

6310 ir TK5="H" IHFN PCi J» =VrtL ( SIl t i GOSUB 3580 

6320 IF PC(JKA4 OR Pn<J))032 THEN ER=14! GOTO 666D 

6330 IF TK*(>"," THEN 6650 ELSE GOSUB 3580 

6340 K = INSTH("*X<(l".rK»)i IF KOO THEN TP<J)=K: GOSUB 35B0 

6350 IF TKIO-'." THEN 6^50 ELSE OORUB 358(1 

6360 IF TKl = "N" THEN TC( Jl =Vfil ( ST5» : GOSUB 3580 

6370 IF TC(JK1 OR TCIJ) )255 THEN ER = 15i GOTO 6660 

6380 IF IP(JI=i THEN 4430 

4390 IF TKKl"." THEN 6650 ELSE GOSUB 35B0 

6400 IF I»<»="N" THEN DC( J>=VAL (ST* ) : GOSUB 3580 

6410 IF DC(J) lJTr*J> OR DC<,I1(0 THEN ER = 15I GOTO 6640 

6420 IF DCtjIOO THEN FM5( J>=STR INGKTC ( .1) -DCt J t-l , "»" )*''.''*STfiI 

NGt<DC(J),"»l"> ELSE FMJI J)eSTRING*( TCf J» . "It" ) 

4430 IF TK*<)"F" THEN PRINT "fj'tra ignorado" 

A44n NFVT ' 



6460 IF P2(I)<P1(I) THEN PfiINT "A TELA DEWE TER PELO HENOS 1 CAh 

PO": GOTO 6050 

6470 INPUT "NUMEHO DE NENSAOEHS NESTA TELA"! NMCI) 

44B0 IF.NHdXO OR NMCIDIO THEN 6470 

6490 IF NHtn-O THEN 6540 

6500 FOR J=l TO NM<I) 

6510 INPUT "POSICAO DA NENSAQEM"; PM(I.J) 

6520 INPUT "CONTEUDO OA MENSADEM"i CnS<I,J> 

6530 NEXT J 

6540 GOSUB 1270 "NOBTBA A TELA N 1 

6550 GOSUB 115D 

4560 PRINT 3946. "GOSTOU''"( 

6570 K=954: TM=li GOSUB 860 

4580 IF R4="N" OR fiS="n" THEN CLS: GOTO 6050 ELSE IF R*( )"S" AND 

H*( )"a" THEN 6560 
6590 CLS! NEXT I 
4430 OPEN "0",l,aC»+"/DSC" 

6410 'OOSUB 4240 :'Grava a descncao da ficha 
4420 CLOSE 1 

6630 OOSUB 4410 'Cr i a a deacrlrao dos arquivos 

6640 GOTO 4570 'Abre o5 arc|ulvDs e rBtorna 

6450 EH-13 

4460 PRINT STRING5<PL*9," "1. CHR«(94), " EfiROlM - -, TES(ER> 
6470 GOiO 6080 

4480 '■■■■•■•■■••>(•■■■■•■•■■■■■•■■ 
6490 '«■■ LE NOME DO BANCO >*■ 
4700 ■■•■■•■•■■•■■•■■••■•■■■•■••■■ 
6710 K=907i TM=e: GOSUB 860 

6720 GOSUe 6830: IF EROO THEN PfiINT BK , " ";i GOTO 6710 

6730 eCS=R4! RETURN 

6740 '■•■•■■•■•■•■■•■••■••■••■•■■••■••■•■■• 
4750 '■-• LE NOME DO ARQUIUO INDICE •■i' 
6760 •■■■•■■■■■■■■•■■■■>■•■■■■«■■>■■■■■«>■■« 
6770 K=97ii TM=8: GOSUB 860 

4780 GOSUB 6830: IF EBOO THEN PRINT BK , " ";t GOTO 6770 

6790 ID4'fi5! RETURN 

6B00 ■■■■■■>■•■■■■■■•■■■■■•■■■■>■««•■■■«* 
6810 '•■■ CRITICA NOME DO AR&UIkfO ■■■ 
6820 ■■•#••■••■•■•■■■■■•■»■■•■■•■•■•■•■•■ 
4830 EH'Oi IF LEN<BS)=D THEN ER=l: RETURN 
6840 FOR I'=l TO LEN{R%) 
4850 C1='MIDS<H5,I,I) 

4860 IF I"! THEN IF CK"A" OR Ci)"Z" THEN ER-H GOTO 6880 
6870 IF C*<"D" OR <C»r'9" AND C4<"A") OR C5)"Z" THEN EPi-1 
4880 NEXT I 
6890 RETURN 

4900 -•■■■■••••■•■••■■■•■••■••■••■■■■••■••■• 
6910 '■■■ MODIFICAR DESCfitCAO DO BANCO ■■■ 
4920 ■■•■•■••■•••■••■•••••■•••■■•■••■■•■••■■ 
6930 IF F4 THEN ER-12! GOTO 10510 
4940 CLS: GOSUB USD 

6950 PRINT 3278, "••• ATENCAO »••" 

4960 PRINT TAB(5)i"A N0DIF1CACA0 DA DE5CR1CA0 DO BANCO DE DADOS 
APAGA" 

4970 PRINT TAB<5>"T0D0S OS DADOS GRAVADOS.": PRINT 

6980 H4="": PRINT TAB<15};i INPUT "CONFIRHE A SUA DESCISAO (S/N) 
", Ri 
4990 IF Rl="N" OR R«="n" THEN RETURN ELSE IF RS< >"S" AND R5< >"s" 

THEN 69B0 
7000 GOSUB 7080: BCl^Rt 
7010 GOTO 6000 

7020 •■■■■■ ■#•!.■■■«■■■■•■••■• ■■•■■••■«• 
7030 '••« APAGAR BANCO DE DADOS •■" 

7040 * ■•«■■•■.■■■■.■■>■■•■*•••■■■■ 

7050 IF F4 THEN EH=12: GOTO 10510 

7040 PRINT 3440,(1 INPUT "APAGAR BANCO DE DADOS??? CONFIRHE. 

(S/N)"( H* 
7070 IF B*c"N" Oft B»a"n" THEN RETURN ELSE IF R»(>"S" AND B%<>"-i" 

THEN 7D40 
7080 Rt»ac« 
7090 GOSUB 4900 
7100 ON ERROR GOTO 7170 
7110 KILL R»*"/DSC" 
7120 FOR l^l TO NA 
7130 KILL R5*"/DT"+CHHt(47*I) 
714D NEXT I 
7150 ON ERROR GOTO 
7160 RETURN 
7170 RESUME NEXT 

7100 '■■■■■■■■■«■••■•■■•■■■■■"«•■«■■«■ 
7190 '■■« OESCRICAO DA IHPRE55A0 ■■> 
7200 '•■•■■•■••■•<■•■•■■•■■■«■■•■>■■■■■ 
7210 FM=NA*l: F5=0! CLE: GOSUB 115D 
7?20 PRINT 3192, "ARfiUIUO DE FORMATO = " 
7230 K=213i TM=8: GOSUB 840: GOSUB 68301 IF EROO THEN PRINT BK . 

'■•■ GOTO 7230 ELSE FMi-R» 
7240 ON ERROR GOTO 7300 
7250 OPEN ■'I",FH,FM«»"/FMT" 
7260 ON ERROR GOTO O 

7270 PRINT 8254, ''ESTE ARflUIVO JA EXISTE.": INPUT "DESEJA REDEFI 
NI-LOt <S/N)", R* 

7200 IF Rt="N" THEN RETURN ELSE IF RS< J-'S" THEN 7270 
7290 CLOSE ttFM: GOTO 7330 
7300 RESUME 7310 
7310 ON ERROR GOTO O 
7320 GOSUB 10780 'APAGA 
7330 GOSUB 7450 MMPHESSORA 
7340 GOSiJB 7600 'RELATOR 10 
7350 GOSUB 9730 'CALCULA N7 e NB 
7340 'if ER then 7330 
737D OPEN "0", FM , FM5+"/FMT" 
7390 GOSUB 10210 
7390 CLOSE HFM 
7400 RETURN 

7410 ■■<"•■>•••■.••■).••■.•••■•■■•■■•■■■■•■■■■■■■••■ 
7420 '■•• R0TINA5 DE LEITURA DE OESCR ICOES •■■ 
7430 •■-»■•■ ■•■■•■■••■I ■•■■•■■•■••■■•■■■■••■••■■■ 
744D '••■ LE DESCRICAO DA IMPRES50RA 
7450 CLS: PRINT: PRINT "DESCfilCAO OA IMPRESSORA" 
7460 IF F*-, THEN PRINT ■NIIMFBO DF COLUNAS="- CO 



7470 INPUT "NUMEBO DE COLUNAS"t CO 

7480 IF F5 THEN PfiINT "NUMERO DE LINHAS"", LI 

7490 INPUT "NUHERO DE LINHAS"i LI 

7500 IF F5 THEN IF LEN(S15) THEN PRINT "SEQUENCIA INICIAL='-(: FO 

fi 1=1 TO LENISlt): PRINT ASC (HID4( SI*, I , 1 1 ) j " , " : * NEXT I: PRINT 

7510 PRINT "SEflUENCIA INICIAL" 

7520 GOSUB 8410 

7530 Slt=St 

7540 IF F5 THEN IF LEN(S2t) THEN PRINT "SEQUENCIA FlNAL="j: FOR 

1=1 TO LEN<S2*)1 PRINT ASC (MID4(S2i, I , 1 )),"," t • NEXT H PRINT 

7550 PRINT "SEQUENCIA FINAL" 

7560 GOSUB B410 

7570 S2*=S1 

7580 RETURN 

7590 •.•■. LE OESCRICAO DO RELATORIO 

7600 CLS: PRINT: PRINT "OESCRICAO DO RELATORIO" 

7610 GOSUB 7670 'CABECALHO 

742D GOSUB 7900 'DETALHE 

7430 GOSUB 9200 'RODAPE ' 

7640 RETURN 

7650 '••■ LE DESCRICAO DO CABECALHO 

7640 CLS: PRINT 

7670 PRINT "Cabetalho" 

7480 IF F5 THEN PRINT "NUMERO DE LINHAS NO CAeECALHOB-"^ N4 

7490 INPUT "NUMERO DE LINHAS NO CflBECflLHO"i N4 

7700 IF N4<0 OR N4)ID THEN 7690 

7710 IF N4-D THEN RETURN 

7720 FOR Jl-1 TO N4 

7730 PRINT "LINHA"i Jl 

7740 IF F5 THEN PRINT "TABULACAO-") T4( Jl > 

7750 INPUT "TABULACAO"] T4(J1) 

7760 IF F5 THEN PRINT "CONTEUDO*", U4*(Jt) 

7770 INPUT "CONTEUDO", L4»(J1) 

7780 NEXT Jl 

7790 Hi-""ilNPUT -IHPRIMIH CONTADOR DE PAGINAS NO CABECALHO" ,R« 

7800 IF R»="N" THEN N1=0! GOTO 7870 ELSE IF RS()"S" THEN 7790 

7810 IF F5 THEN PRINT "NUMERO DA LINHA 00 CONTADOR=", Ni 

7820 INPUT "NUMERO DA LINHA DO CONTAOOH": Nl 

7B3D IF NKl OR N1>N4 THEN 7820 

7840 IF F5 THEN PRINT "NUMERO DA COLUNA DO C0NTA00ft""i CI 

7850 INPUT "NUMEfiO DA COLUNA 00 CONTADOR", CI 

7840 .IF C1»11)T4<N1> THEN IF Cl< T4<N1 J*LEN(L4*{N1 1 > THEN 7850 

7670 RETURN 

7880 '■■■ LE DESCRICAO DO DETALHE 

7B90 CLSi PRINT 

7900 PRINT "Detaihe" 

7910 IF F5 THEN PRINT "NUMERO DE COLUNAS DE DETALHE="( N5 

7920 INPUT "NUMEfiO DE COLUNAS DE DETALHE", N5 

7930 IF N5<1 OR N5>50 THEN 7920 

7940 N9-1 

7950 FOR Jl=t TO N5 

7960 PRINT "COLUNA", Jl 

7970 IF F5 THEN PRINT "TABULACAO-" , TSIJi) 

7980 INPUT "TABULACAO"; TS(J1> 

7990 IF Jl=l THEN 8010 

8000 IF T5< Jl)tT5(Jl-l>tTC(C5(Jl-n) THEN N9-N9*l: PRINT "CADA F 

ICHA SERA' IMPRESSA EM", N9: "LINHAS" 

eOlO FOR K=l TO NP 

8020 IF C5( Jl>> = Pi(Kl AND C5(J1K=P2(K) THEN B040 

8030 NEXT K 

8040 EC* = '■NCKC5<Jl ) 1 +" '( "+STH«(K >♦" t" 

B05D IF F5 THEN PRINT EC* 

8060 LINE INPUT "CAMPO (TELA) = ", EC* 

6070 LL=LEN1EC*): PL=1 

BOaO IF LL-0 THEN 8130 

B09D GOSUB 3350 

BlOO IF EflOO THEN PRINT "ERRQi'' - ".TE*(ERH GOTO 8060 

8110 IF TK*<>"F" THEN PBINT "EKtra Ignorado" 

8120 C5tJl)-J 

8130 NEXT Jl 

8140 IF F5 THEN PRINT "NUMERO DE LINHAS DE SEPARACAO-" , N3 

8150 INPUT "NUMERO DE LINHAS DE SEPARACAO", N3 

8160 IF N3<0 THEN 8130 

8170 RETURN 

8180 ■••■ LE DESCRICAO DO RODAPE' 

8190 CLS: PRINT 

9200 PRINT "Rcidapp '" 

8210 IF F5 THEN PRINT "NUMERO DE LINHAS DE RODAPE'-", N6 

8220 INPUT "NUMEfiO DE LINHAS DE RODAPE'", N4 

8230 IF N4<0 OR N6>10 THEN 8220 

8240 IF N6=0 THEN RETURN 

B250 FOR Jl=l TO N6 

8260 PRINT "LINHA", Jl 

8270 IF F5 THEN PRINT "TABULACAO=" t T6CJ1) 

8280 INPUT "TABULACAO", T6( Jl ) 

8290 IF F5 THEN PRINT "C0NTEUDO=", L4S(Jl> 

8300 INPUT "CONTEUDO"; L6*(J1) 

8310 NEXT Jl 

B320 R*"""! INPUT "IMPRIMIfi CONTADOR DE PAGINAS NO RODAPE'", H* 

8330 IF ft*="N" THEN N2-0: GOTO 8400 ELSE IF Rl< )"S" THEN B320 

8340 IF F5 THEN PfiINT "NUMERO DA LINHA 00 CONTADOR-"} N2 

8350 INPUT "NUMERO DA LINHA DO CONTADOR", N2 

8360 IF N2(l OH N2)N6 THEN 8350 

8370 IF F5 THEN PRINT "NUMERO DA COLUNA DO CONTADOR-", C2 

8380 INPUT "NUMERO DA COLUNA DO CONTADOR", C2 

8390 IF C2-H1)T4(N2) THEN IF C2< T4 tN2) ♦LEN(L4S< N2) > THEN 8380 

8400 RETURN 

8410 Jl=l: S*="" 

8420 PRINT Jltt C-0 

8430 INPUT C 

8440 IF C=0 THEN 8480 ELSE IF C<0 OR C)255 THEN 8420 

8450 S*"S»*CHB1(C> 

8460 Jl»Ji*l 

8470 GOTO 8420 

8480 RETURN 

9490 ■•••■■■■•••••■••"•■ 

8500 '■•■ IMPRIMIR ■•• 

8510 ■•...■■-..-•-■■■■«■ 

8520 GOSUB 1490: IF EROO THEN 10510 

8530 FM=NA*l: CLS: OOSUB 1150 

B540 PRINT 8192, "AR9U1V0 DE FORMATO ■=": K'2I3i TM-Bi GOSUB B60t 

GOSUB 68301 IF ER( >0 THEN PRINT flK . " "i GOTO 8540 
B55" 'F R*^FM* THEN 8410 ELSF FM*^Rt 



«b60 ON ERROR GOTO 8960 

8570 OPEN "I", FM, FH**"/FMT" 

8580 ON ERROR GOTO O 

8590 OOSUB 9890 

8600 CLOSE HFM 

8610 PG=0i Fl=Oi F3--i 

8620 PRINT 3320,(1 GOSUB 3040 

9630 PBINT "POSICIONE PAPEL" 

8440 LINE INPUT "DIGITE (ENTER) PABA CONTINUAR", B» 

8450 LPRINT Sl*j 

8640 PG-PG*1 

847D IF N4-0 THEN 8730 

8680 FOR Jl-1 ro N4 

8690 IF Nl=Jl AND C1(T4(J1) THEN LPRINT TABtCl)]' LPRINT USING " 

PAGINA HttK", PG, 

8700 LPRINT TAB(T4(Jill) L45(J1); 

B710 IF M1=J1 AND C1>T4<J1) THEN LPRINT TAB(C1>,: LPRINT USING " 

PAGINA Htltl", PG ELSE LPRINT 

8720 NEXT Jl 

9730 FOR Jl=l TO N7 

8740 IF Fl THEN LPRINT STB INGKN9-1 , 13 ) ( : GOTO BB40 

8750 IF F2 THEN GOSUB 2730: IF F3 THEN 8780 ELSE ELSE 8780 

8760 GOSUB 1770: IF EROO THEN Fl — I 

8770 GOTO 8740 

8780 FOB J2-1 TO N5 

9790 IF J201 THEN IF T5( J3.H T5( J2-1 ) ♦TCtCSt J2- 1 ) ) THEN LPRINT 

8800 LPRINT TA8<T5( J2)),: JtC5(J2)i K-TPtJ) 

8310 IF K=l THEN LPRINT CC*(J), ELSE IF K=2 THEN LPRINT USING FM 

4(J), CVI(CC*{J>1, ELSE IF K-3 THEN LPRINT USING FM*(J), CyS<CCt 

<J))j ELSE LPRINT USING FM*(J)j cyD(CC5(J)»; 

8B20 NEXT J2 

8930 GOSUB 1770: IF Efi()0 THBN Fl"-l 

8840 IF JI=N7 THEN LPRINT ELSE LPRINT STRING*(N3. 13) 

8850 NEXT Jl 

8840 LPRINT STH IND«( NS , 13) , 

8870 IF N6-0 THEN 8930 

flBBO FOR Jl-1 TO N6 

BB90 IF N2-J1 AND C2(T6CJ1) THEN LPfilNT TAB(C2)j: LPRINT USING " 

PAGINA HMH"; PG; 

8900 LPRINT TAe(T4(jn)( L4*lJl)t 

8910 IF N2=J1 AND C2>T4(J1) THEN LPRINT TAB{C2),i LPRINT USING " 

PAGINA ttMt<"i PD ELSE LPRINT 

B92D NEXT Jl 

8930 IF NOT Fl THEN 8460 

8940 LPRINT S2*, 

8950 RETURN 

8940 RESUME 8970 

8970 ON ERROR GOTO O 

8980 ER-5I OOTO 10510 

8990 ••«■»■■■•■■■■••■•■••■■•■»••■"•■■■■"•■ 

9000 '■"■ APAGA AROUIVO DE FORMATO •■■ 

9010 ■•■■•■•■■•••■••■••■■■••••■•«•■"■■•"•• 

9020 PBINT 3704, "ARQUIUO DE FORMATO -"• 

9030 K<'726i TH=ai GOSUB 860 

9040 GOSUB 4830: IF EROO THEN 9030 

9050 ON ERROR GOTO 9090 

9060 KILL R*+"/FMT" 

9070 ON ERROR GOTO O 

9090 RETURN 

9090 RESUME NEXT 

9100 *••■■■■■•••••••••■••■■■■••■■■''■"•"■•" 

9110 •■•• ABBE UM AROUIVO DE INDICES ••• 
9120 '■■••••■••■■■•■• •••■■••■••••■ •■«■•"•■ 

9130 IF F7 THEN QOSUB 4960: PBINT 3971," "( 

9140 GOSUB 4770 

9150 GOSUB 47701 If NOT F7 THEN EH-19t QOSUB lOSlOt PRINT 3971," 

"(1 10*="" 
9160 RETURN 
7170 ••■•■•■■■■■••••■•" 

9180 *■•• INOEXAR ■•■ 

9190 '•■«■••■•■■•■■■•■■ 

9200 IF IDOO THEN CLOSE IDt PRINT 3971," "i 

9210 IO-NA+2 

9220 GOSOB 4770 

9230 CLS: GOSUB 1150 

9240 ON ERROR GOTO 9440 

9250 KILL lD*+"/IDX" 

9260 ON ERROR OOTO 

9270 PRINT 3254,,: LINE INPUT "CAMPO CHAVE - ", EC* 

9280 IF EC*-"" THEN 9270 

9290 PL"l: LL-LEN ( ECS) : GOSUB 3350 

9300 IF EROO THEN PfiINT "ERROMI - ",TE*(ERH GOTO 9270 

9310 CH-Jl IF TP(CH)OI THEN I=TT(TP(CH)) ELSE I-TCICH) 

9320 IF 1)248 THEN PRINT TE*(2)i GOTO 9270 

9330 ON ERROR GOTO 9470 

9340 OPEN "R~,ID,ID*t"/IDX",I*8 

9350 ON ERROR GOTO 

9360 FIELD ID 2 AS El*. 2 AS E2*, 2 AS E3*. 2 AS E4*, IX AS CH* 

9370 LSET E1*=HKI5(0H LSET E2*-El*l LSET £3*=E2*i LSET E4*-MKIS 

<CH) 

9380 PUT 1D,1: RAIZ-0 

9390 GOSUB 3040 'Lc a candicao para que ■jib rcgistro poBsa «er 1 

ndexado 

9400 NF=1 

9410 IF NF)=F1M THEN F7=-l: RETURN 'F i « da indeKacao 

9420 GOSUe 24B0 'Le a richa 

9430 IF F2 THEN GOSUB 2730: IF NOT F3 THEN 9450 

9440 GOSUB 2040 'Inclul no arqutvo dB indicts 

9450 NF=NF*t: GOTO 9410 

9440 RESUME NEXT 

9470 RESUME 9480 

9480 ON ERROfi GOTO O 

P49D PfiINT "ERfiOM' - ",Tet(16) 

9500 GOIO 9270 

9510 ■•■••»•■••■•■••■■■••"■•■•■•■■••"■"•''•" 

9520 '■•■ APAGA UM AHOUIUO DE INDICES ••» 

9530 '••■>•■• •••"■•■••■••■•"•••I •■••"■• ■■•■•" 

9540 PRINT 3971," "t' K=97li TM«8! GOSUB 840= GOSUfl 68301 

IF ER< )0 THEN_9540 
9550 IF H*-ID* THEN GOSUB 4960 
9540 ON ERROR GOTO 9400 
9570 KILL R**"/IDX" 
'/•^^HO OM ERRJ)B GOTO 



32 



MICRO SISTEMAS, feveifliro/SB 



MICRO SISTEMAS, fevereiro/85 



83 



UM GERENTE PRATICO EM BANCO DE DADOS 



'Pacha ari^ulvos 



V590 BEIUBN 

9t,0a RESUME NEXT 

9&1D '■*>■•«■•«■•«■ 

?6Sa '■«« FIN <••■ 

9630 '«•*■<•■•>*«■■• 

9640 IF NOT F& THEN GOSUB 4900 

9450 CMD"BREflK,Y"i END 

9660 '■■«••*■■■■•*■■■«« 

9470 ••■• CflLCULA ••« 

96B0 '■•■■•■«•■«■* «■■«*■ 

9690 'Entr«i LI, N4, N6 , N3, N9 

9700 'Sail N7, NS 

9710 'Destroli EB, K 

9720 ' •■ 

9730 M7-LI-N4-N6 

9740 K-N7-N9 

9750 K«INT(K/(N3+N9>) 

9760 Ne=N7-K»tN3»N9)--N9 

9770 N7»K*1 

97B0 IF N7(l THEN ER = lli PRINT 3769, "ERRO I It - ", TESIER); ELSE 

ER-0 

9790 RETURN 



'••" LE DE5CRICA0 DA IMPBESSAO DO DI3C0 ■■• 

■■■•■*■■««>■■■«*«■■■*■«>»«■■■<>■■ ■■«»«■««•«■«■ 

'Entrai FM 

■Sail CO, LI, S15, 53%, N4 , T4t), L4S<), Ml. CI, N5, T3( ) 

CSO, N3, N7. NB, N9, Ni, T6(), L«S(>. M2, C2 
'Dsctroll Ji 



9600 
9610 
9830 
9630 
9840 
9B50 
9860 

9870 ■ 

9680 '•■■ IHPRESSORA *<•• 

9690 INPUT MFM, CO, LI, SIS, S2S 

9900 *«•■ RELATORIO ■■■ 

9910 '••• Cabecalho 

9920 INPUT HFM, N4 

9930 IF N4"0 THEN 9970 

9940 FOR Jl=l TO N4 

99S0 INPUT HFM, T4<J1), L4»(Jl> 

9940 NEXT Jl 

9970 INPUT HFM, Nl . CI 

9980 ■■•■ DBlalhc 

9990 INPUT KFM. N5 

10000 FOB Jl=l TO N5 

10010 INPUT (tFM, T5(J1). C5(Ji) 

10020 NEXT Jt 

10030 INPUT HFM, N3, N7 , NB , N9 

10040 '■■■ Rodaps ' 

10050 INPUT HFH, N4 

1D06D IF N6=0 THEN lOlOD 

10070 FOR Jl=l TO N6 

lOOBO INPUT KFM, T6(jn, L6»(J1) 

10090 NEXT Jl 

10100 INPUT HFH, N2, C2 

lOllO ■•■■ FIM •■• 

10120 RETURN 



10130 



10140 '•■■ GRAVA DESCRtCAO OA IHPRESSAO NO DISCO ■■• 
10150 '^••■■■■■■■■•■-•■•■■••■•■■••■■••■■••■■■■.■.■■•■■■■■Na 

10160 'Entrai FM, CO, LI, SU, S2S , N4, T4<l, L4i( ) , Nl , 
10170 ' ISO, CSO, N3, N7, NB, N9 , N6. T6{>,L4S(), 
lOiBO 'Destro.! Jl 
10190 ' 

10200 
10210 
CHR« 
10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10310 

10320 

10330 

10340 

10350 

10360 

10370 

10380 

10390 

10400 

10410 

10420 

10430 

10440 

10450 

10440 

10470 

10480 

10490 

10500 

10510 

10520 
10530 
10540 
10550 
10560 
10570 
10560 
1DS90 
10600 
10610 
10420 
10430 
10640 
10450 
10660 
10470 
10680 
inr^90 



CI. N5 
N2. C2 



'■*• IMPBESSOHA •«• 

PRINT KFM, CO, LI, CHR1(34); Sit, CHRS(34), CHR5(34), S2«, 
(34) 

'•■■ RELATORIO ■■• 

'«■■ CabFcalho 
PRINT HFH, N4 
IF N4=0 THEN 10290 
FOR Jl-'l TO N4 

PRINT HFM. T4(J1), CHHS<34>, L4t(Jl) CHR«(34I 
NEXT Jl 
PRINT «FH, Nl, CI 

'•"• Detalh* 

PRINT MFH, N5 

FOR Jl-1 TO N5 

PRINT ItFM. T5(J1)| C5<J1> 

NEXT Jl 

PRINT HFH, N3, N7, NBj N9 

*•"• Rodapc' 
POINT KFM, N4 
IF N6°0 THEN 10420 
FOR Jl«l TO N4 

PRINT tIFM, T6<J1)[ CMR*(34), L4t(Jl)t CHR«{34) 
NEXT Jl 

PRINT KFN, N2, C2 
'"■• FIM ■■» 
RETURN 



'••• ERRO-1 •■" 



'Entrat ER , TEH) 

'Out roll K 



PRINT 3768, 'ERROIM - ", TEStER); 

FOR K-1 TO 8001 NEXT K 
RETURN 



'»•■ EftRO-2 ■•» 



•Enlrai ER , TESO 
'Oeatroii K 



PRINT 3768, "ERROMI - "j TESCER); 
FOR K=l TO BOO: NEXT K 
PRINT 3768. 5TRINGS<44,32), 
RETURN 



'■> 



SOH 



■Eiitral SOUS. PT 
'Oealroii ED! 



10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10820 
10B3D 
10840 
1DB50 
10660 
1DB70 
lOBBO 
10890 
10900 
10910 
10920 
10930 
10940 
10950 
10960 
10970 
109B0 
10990 

11000 

11010 

11020 

11030 

11040 

11050 

11030 

11060 

11070 

ItOBO 

11090 

11100 

11110 

11120 

11130 

11140 

11150 

1H60 

11170 

900 

11180 

11190 

11200 

11210 

11220 

11230 

11240 

11250 

11240 

11270 

11280 

11290 

11300 

11310 

11320 

11330 

11340 

11350 

11360 

11370 

11380 

540 

11390 

11400 

11410 

11420 

11430 

11440 

11450 

11460 

11470 

114B0 

11490 

BS20 

11500 

11510 

11520 

11530 

11540 
11550 
11560 

11570 
11 560 
11590 
11400 
11610 
11620 
11430 
11640 
11650 
11640 
11670 
11680 
11490 
11700 
11710 
11720 
11730 
11740 
11750 



ED'"PEEX(PT*1>*PEEK<PT*2)»256 
IF ED!)32767 THEN ED t >E0 I -65536 

DEFUSRO>=ED! 
EO'oUSBOCO) 
RETUBN 



■••« flPAGA2 ■"• 

'•■■•■■■■■■■itiiiiiia 

CO=Oe Ll=Oi SH=""» S2»=""l Nl-Di N2=0t N3"0i Cl-Oi C2=0 
FOR 1=1 TO 10 

T4(I)-0l T5<I)"0i T5(I*10>=01 C5(I)-0t C5(I*10l=0l T6(I>=a 
L4»(I)- — : L4»(I)n"" 
NEXT I 
RETURN 



■••• APAQA ■•" 



FOR J"l TO P2<NP) 
LSET CC«(J)-ZR»(TP(J>) 
NEXT J 
RETURN 



•»■ MENUS 



CL5: GOSUB 1150 

PRINT 3153, "MENU PRINCIPAL"! PRINT 

PRINT TABtlO),"! - ABRIR/CR I AR/MODIF ICAfi/APADAI* BANCOS" 

PRINT TAB(10),"2 - INSERIR/MODIFICAB/APAGAR/PBOCURAR OADOB 

PflINT TAB<10),-'3 - INDEXAft/DESINDEXAR DADOS" 

PRItfT TAB(10);"4 - CR IAR7M0DIF ICAR/EXECUTAR RELATORIOS" 

PR.INT TAB<10>,''5 - FIH" 

PRINT a944,"OPCA0''"tI K»951t TM-ll GOSUB B40! 0-WflL<R«) 

IF 0<1 OR 0>5 THEN 11030 

IF F6 THEN IF OOl AND 0( )5 THEN EH-iCi GOSUB IO6OO1 GOTO 

ON GOSUB HOBO. 11190. 11290, 11400, 9640 

GOTO 1094D 

CLS! GOSUB 1150 

PRINT 3150. "MENU SECUNDARIO - l"t PRINT 

PRINT TABdSJj-l - A8R1R/CRIAR UM BANCO OE DADOS" 

PRINT TAB(1S>,"2 - HODIFICAR A DESCRICAO DO BANCO" 

PRINT TAB (15), "3 - APAGAB BANCO DE DftDOS" 

PRINT TAB<15);"4 - FECHAR BANCO DE DADOS" 

PRINT TAB<15):"5 - HETORNAR AO MENU PRINCIPAL" 

PRINT a944,"0PCA0''", : K-951: TM-1 1 GOSUB B40i O'VALtRi) 

IF 0<0 OR 0)5 THEN 1115D 

IF 0=5 OR 0=0 THEN RETURN ELSE ON GOSUB 5880,4930,7050.4 

GOTO 11080 

CLSi GOSUB 1150 

PRINT 3150, "MENU SECUNDARIO - 2" 1 PRINT 

PRINT TABdS),"! - INSERIR DADOS" 

PRINT TAB<15>,"2 - INSERIR SOBRE FICHAS APAGADAS" 

PRINT TAB(15>t"3 - LOCAL IZAR/DELETAH/MODIFICAH DADOS" 

PRINT IAB<15),"4 - RETORNAR AO MENU PRINCIPAL" 

PRINT 3944,-0PCAO'?~,i K»951! TM-l: GOSUB 86O1 0"UALtR*) 

IF 0<0 OH 0>4 THEN 11250 

IF 0=4 OR 0=0 THEN RETURN ELSE ON GOSUB 5060.5050,5150 

GOTO 11190 

CLS= GOSUB 1150 

PRINT 91S0, 'MENU SECUNDARIO - 3"t PRINT 

PRINT TAB(15)r"l - A8RIR UM AHflUIUO DE INDICES" 

PRINT TABUS) ("2 - FECHAR AfiauiUO DE INDICES" 

PRINT TAB(15)t"3 - CRIAR UM AROUIVO DE INDICES" 

PRINT IAB<15),''4 - APAGAR UM ARUUIVO DE INDICES" 

PRINT TAB(t5>("5 - RETORNAR AO MENU PRINCIPAL" 

PRINT a944,"0PCA0?",I K-9S1 1 TM-H OOSUB 860i 0=yAL<Rl) 

If 0(0 OR 0>5 THEN 11360 

LF 0=5 OR OaO THEN RETURN ELSE ON GOSUB 9130.4960,9200,9 

GOTO 11290 
CLS> GDSU8 1150 

PRINT 3150, "MENU SECUNDARIO - 4"i PRINT 

PfiINT TAB(15),"1 - CRIAR DESCRICAO DE RELATORIO" 

PRINT TABC15),"2 - HODIFICAR DESCRICAO DE RELATORIO" 

PRINT TA6(15>,"3 - APAOAR DESCRICAO DE RELATORIO" 

PfiINT TAB(l5)s"4 - IMPHIMIR" 

PRINT TAB<15),"5 - RETORNAR AO MENU PRINCIPAL" 

PRINT 3944."0PCA0^",i K-951 : TM=lt GOSUB B6O1 0=VAL<fi») 

IF 0<0 OR 0>5 THEN 11470 

IF 0»5 OR 0=0 THEN RETURN ELSE ON GOSUB 7210,11510,9020, 

GOTO 11400 

FM"NA+li CLSi GOSUB 1150 

PRINT 3192, "AROUIVO DE FORMATO -" 

K°213i TM-Bt GOSUB 860= GOSUB 4630: IF EROO THEN PRINT 3K 

"I GOTO 11530 
IF R*=rM$ THEN 11400 ELSE FM*"fiS 
ON ERROR GOTO 8960 
OPEN "I". FM, FMS*"7FMT" 
ON EBHOR GOTO 
GOSUB 9B90 
CLOSE HFM 

PRINTi R5-""! INPUT "IMPHIMIR OS UALORES ANTEBIORES", Rt 
IF H*="S" THEN F5=-l ELSE IF R4<)"N" THEN 11600 ELSE F5=0 
CLS! GOSUB 1150: PfiINT 3153, "ITENS A MOO]FICflfl"i PRINT 
PRINT TAB(1S))"1 - CARACTERISTICAS DA IMPRESSORfl" 
PRINT TAB(15I,"2 - CARACTERISTICAS DO CABECALHO" 
PRINT IAB(15),"3 - CARACTERISTICAS 00 DETALHF" 
PRINT TAB(l5)t"4 - CARACTERISTICAS DO fiODftPE '" 
PRINT TABtl5),"5 - RETOHNA AO MENU SECUNDARIO" 
PRINT 3944, "OPCAO",i Ko95li TM= 1 1 GOSUB 840: = yAL<Rl) 
IF 0»5 OH 0=0 THEN 11720 ELSE IF 0< 1 OH 0)4 THEN 11480 
ON GOSUB 7450, 7440, 7890. 3190 
GOTO 11620 
GOSUB 9730 'CALCULA 

IF ER THEN FOR K=l TO BOOi NEXT Ki GOTO 11420 

OPEN "0". FM, Fm*"/FMT" ^ 

GOSUB 102101 CLOSE NFM: RETURN « 




DESCUBRA AS DIFERENCAS 



Aparenismenle esles dais CAbO! 

sfio iguai^. 

OIha bttm a tentQ descabrir as 

djfarenpas. 

1 - O MtM? tie eima 4 AUDIOFLEX Efe 

iem eoniiinukiade de earacier[gtic8s 
eUtricas no- longO dB lOda linha, 
pofque ^ Tabricada com o mrBihor 
equipemencq s- sua qualiclade 6 
controlads em loda linha de 
fabrtca^p. 

2 eabodecifTie frAUOIOFLEX Ele 
6 fabritado com cobre etetrQiiucQ 
lovo D polnetilefio nova - nada cte 
fnat^ia- prima reciipefatfa. 

3 ' O calM> de cima i AUDIOFLEX. 

Sua (Tironfagerri ^ ripirta e fAcil, 
davido its diversifica^fics de lipos & 
cortofi bobina<^ no coinpornenio 
flxato. 

4 - D caho 66 cims 6 AUDIOFLEX. El« 

passa peio mais avani^ado controls 
dft qualidsdi? 




5 ' cabo de cJma 4 AUDtOFLE>:. Ele 
6 fsbricado pot timg empresa que 

s6 Tabrica cabos especiais. 
G ■ Q cabp d& cma « AUDEOFLEK. Els 

A feito com a maii alta leenptogiia. 
7 - cabo d& eimn & AUOlOFLEK Ele 

i fabncadQ ^m fo^A do IS li^os 

dilerenifr^. 
a - ◦ cabo d& cifna (s AUDIOFLEX. A 

^mprfisa qufr Idbrica tOTt um 

O^pBTtamenTO dfi- EngenhdHs 

prepar^do para ifidiCSr qua) O 

melhdr lipo para s^u c^aso. 
9 - caba dB cIma & AUDIOFLEX. EIq 

^ fabricada Bn> vdTk>3 TipOS de 

hi'Eola:^ ? blindagens. 
>a - cabd dB cIma « AUDtOFL^X. Ele 

& fsbrpcado com virios lipos de 

Agora. 9« vac4' e^T^d pensdndo qua 

degccibriu as dMsrenqas. vDc>§ errtyu, 
PDrqu« o de baino tamb^m ^ KMP: 
e js KMP lem a mBis alta tecnalogia 
eiTi cabas especiaiB. 



® 



AUDIOFLEX 



kmP 



Cabos Etftedakt e Sittennat Ltda» 

e.n iie,'k(n25. - cx. PoEiii i4g oestH 

Embu SP - Tol. on '4M-2433 Pobx ToIbi 

0nV33i34 KWPt ■ BR rtt^t^moi hfefedble 
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Enxadrista experiente, Luciano Nilo de An- 
df9de jS escnveu para os jornais "Correio da 
Manha". "Data News" e "Ultima Hora" e pa- 
ra a revista "Fatos & Fotos". Luciarjo 6 econo- 
mista. traba/harjdo no Ministirio da Farenda. 
no fiio da Janeiro. As opinides e comentirioi 
de Luciano Nilo de Andrade, bem como as 
ultimas novidades do Xadrez jogado por com- 
puadores, estarSo sempre presentes em 
MICRO SISTEMAS. 



As facanhas de um recordista 




Excesso de confian^a e tempo insu- 
ficiente levaram a derrota Vlasti- 
ini] Hort. GMI checo. ao enfrentar 
o micro Prestige, da Fidelity, numa si- 
multanea realizada em Colonia. na Ale- 
manha Ocidental. em 5 de outubro 
ultimo. 

Prodigo na entrega do material para 
mobilizar suas pegas com rapidez, Hort 
s6 nao conseguiu seu desiderato porque. 
no momento azado. na jogada 19, nao 
desfechou um golpe mortal no adver- 
sario. Posteriormenle. depois de perder 
varias oportunidades de lutar pelo em- 
pate, acabou precipitando o fim com 
uma capivarada de fei^ao classica. 

Entretanto. foi o proprio Vlastimil 
Hort quern estabeleceu, no dia 6 de 
outubro ultimo, novo recorde mundial 
de simultaneas. ao jogar contra 575 jo- 
gadores em 663 tabuleiros. Durante esta 
maratona enxadristica. Hort perdeu tres 
quilos e andou cerca de 45 quilometros 
em torno das mesas. 

recordista anterior era o alemao 
Karl Podzielny. contra 300 adversarios 
em 575 partidas. 

V. Hort X Prestige 

Abertura do Peao Dama 

Simultanea, Colonia, 19S4 



i -P4DC3BR;2-B5CC5R;3-B4B 
P4D; 4 - P3B C3BR; 5 - P4R PxP; 
6 -C3BC4D!?;7-CxCDxC;8-P4B 
D4TD+; 9 - B2D D4B; 10 - PxP DxP; 
11 B2R DST+; 12 - P3CR DxP; 



13 - C3B DxPC; 14 - TIC DxPT; 

15 - B3B D3T!; 16 - 0-0 B6T; 17 ^ 
T2B B4B. 18 - PSB D6T. Veja o diagra- 
nia A. Posi^ao depois de 18-P5B D6T. 
Agora as brancas poderiam ganhar com 
19 - TxP DxB; 20 - B5C+<:2D; 21 - 
TxPB TID; 22 - T2D. 19 - B4C(?) as 
brancas deixam escapar a oportunidade 
de coroar com sucesso uma inspirada 



Diagrama A 




abertura. 19 - ...D6R;20 - T3C D5R; 
21 -C5CD4R;22-CxPB!RxC;23- 
TxB+ DxT; 24 - T3B DxT;25 - B4B+ 
R1R;26 - DxDC3B;27-B7B+R2D; 
28 - DSB+ RID; 29 - B3B (?) com 29 
D5D+ RIB 30 B6R+ RIC 31 D7D e as 
pretas teriam dificuldade em reagrupar 
suas pe^as na defesa do seu monarca. 29 
- ...P4R! D3D;30-D3D+R1B;31 - 
DSD B2R; 32 - R2C TID as pretas j^ 
sai'ram da imobilidade em que estavam, 
para come9ar a disputar a iniciativa. 33, - 
D4B B3B ; 34 ^ D4R C5D ; 35 - B5D{?) 
P3B!; 36 - B4B P3TR; 37 - D6C 
P4CD; 38 - B3D P4TD; 39 - P4T P5T, 
40 - P4C C6C; 41 - B5B+ R2C;42 - 



P5C PxP,43 - PxP CxP! se 43 - ... B2R; 
44 - DxPC TIR; 45 - B7D. a vitdria 
das brancas seria quase que matematica. 
44 - PxB PxP; 45 - DxP T4D; 46 - 
BxP T7D+; 47 - R3B P5C;48 - B6D 
R3C; 49 - D5R (?) com possibiUdades 
de continuar a luta seria 49 - D7R TxB ; 

50 - DxT P6C. 49 - ...T4D; 50 - D4B 
R4C; 51 — B3T (?) era necess^rio jogar 

51 - BxC! RxB, 52 - B4R e entao ain- 
da ten'amos luta, o que nao aconteceu 
com a continua^ao do texto. 51 - 
... T6D+; 52 - R2C T1C+; 53 - B4C 
TxB; 54 - Dxt TxB+, 55 - R3B TIC; 
56 - R3R P6T, 57 - D5R P7T: 58 - 
R2D (??) P8T=D e as brancas abandona- 
ram. 



Campeonato Brasiteiro 
de Solu96es de 1 984 



Diagrama B 
-As brancas 
/ogam e dao 
mate em duas 
jogadas. 




Soiufao: 



laea i 





[[NIRALDAIII 

Com e Represenlacoes Llila 



SUPRIMENTO E COISA SERIA 

• Matenha o seu computador bem alimentado adquirindo produtos de qualidada consagrada. 



DISKETES: 5 1/4 e 8" e frtas magn^icas 
• marca VERBATIM 
ETIQUETAS PIMACO - PIMATAB 
PASTAS E FORMULARIOS CONTINUOS 



AV. PRESIDEME VAflGAS N" 482 GR. 201:203 Tel.: KS I021)2S3'1120 



' Discos MagnMicos: 5 Mb, 16 Mb. B Mb. etc 

' Rtas Magn^icas: 600, 1200 e 2400 p6s 

> Fitas CARBOFITAS pflmpressoras: Globus. M 100/200 - B aOOfeOO - Elebra 

' Fitas pilmpressoras: Elgin. Epson, Digilab. Diablo. Elebra Alice. 

'Csrtucho Cobra 400 



Microcomputadores CRAFT 
a extensao de sua mente. 



= AIICROCQAIPUTjIDORES LTCX4 

Av. Bng Haria Lima, 1.6yH 1'' anAai Cp 11 CtR 01452 
Teh rOH) 212 6286 e 815 6723 Sao Paub SP arosl 



BANCOS DE DADOS — Dois servigos piiblicos 
oferecidos comercialmente a partir deste ano pela 
Embratel possibilitam acesso a importantes bases de dados 



Micros ma'is proximos 
das bases de 



informacoes 



Quando em 1975 a Embratel 
possibilitou as conversas atra- 
ves do sistema de Discagem 
Direta Internacional, a comu- 
nidade de teleinformltica engatinhava 
no BrasJl. Dez anos depois ela d^ passos 
firmes, de mSos dadas, num projeto 
significativo para o usuario, o Cirandffo. 
Da mesma maneira que na dan^a de 
roda, ele possibilita a reuniffo dos 
brasileiros que tern em comum o gosto 
pela Informatica. Resultado de in- 
vestimentos, ate agora, em torno de 
Cr$ 1 bilhffo, o Cirandab surge como 
apenas um dos bons resultados de pes- 
quisas da empresa na iirea, que possibi- 
litaram a criagffo de outros servi9os, co- 
mo o Interdata, Airdata, Findata, Trans- 
data, Interbank e o Renpac, que tam- 
b6m ji pode ser utilizado este ano. 

A hist6ria mais recente da participa- 
(So da Embratel na teleinformitica co 
me^ou no instante em que se considerou 
necess^o estender ao m^mo o conhe- 
cimento de opera^So de microcomputa- 
dores ao quadro de fiincionirios da pro- 
pria empresa, com o projeto Ciranda. 
Descobriu-se que o projeto poderia ofe- 
recer aplicafOes acima das expectativas. 
Isto i, proporcionava muito mais que a 
aproxima93o de fiincion^ios de uma 
empresa. 

Na primeira etapa de implanta^ffo do 
Ciiand^o foram rcunidos nada menos 
que 2.100 CP-500, muitos dos quais fi- 
nanciados pela empresa aos funclondrios 
interessados em participar do projeto. 
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Em torno desses aparelhos, alem dos 
2.1 00 proprietarios, muitos dependentes 
foram beneficiados por senhas subsidia- 
rias. Periodicamente os resultados obti- 
dos eram analisados e dispostos de for- 
ma a retirar deles todas as arestas, para 
elevar o ni'vel do projeto prdximo ^ 
perfei9ffo. Estava sendo criado um dos 
mais saud^veis servl9os da Embratel , 
com OS participantes da comunidade de 
troca de informa96es orientando a pas- 
sagem para o projeto Cirandao. 

E, implantado esse projeto, e' dado o 
primeiro passo da Embratel rumo a uma 
pesquisa mais ambiciosa, a Inteligenda 
Artificial, o aspecto mais importante pa- 
ra a cria9So da quinta gera9So de com- 
putadores. Ser^ a utiliza9So do Ciran- 
dSo Saude em experiencias de consul- 
tas com linguagem natural. 

Manter um micro apenas para jogos 
nffo ^ coisa nem mais de crian9a. Retirar 
a capacidade ociosa dos aproximada- 
mente 200 mil aparelhos que j^ existiam 
at^ o final de 1984,mimero que poderd 
subir a 350 mil at^ o final deste ano foi, 
em tese, o objetivo da Embratel com o 
CirandS^o. Em tese, pois a utili2a9ffo dos 
servi9os por parte de 5 por cento dos 
usu^os }i seria um resultado altamente 
satisfat6rio para a empresa. 

que propOe o Cirandao para atrair 
esses virtuais usu^rios? Um variado re- 
pert6rio de servi90s, que atende desde o 
aluno em duvida com um dado na pes- 
quisa escolar ate o executive interessa- 
do em contratar um profilssional alta- 



mente especializado em novo segment© 
da Engenharia. E isso com a utiliza9ffo 
de um equipamento bastante simples, a 
partir de um terminal de video, um mo- 
dem e um telefone. 

NAVEGAgAO INTEGRADA 

A Embratel j^ empregou Cr$ 1 bi- 
IhSo dos Cr$ 3,5 bilhSes previstos para 
a implanta9ao total do programa ate 
1991 . Os recursos foram utilizados prin- 
cipalmente na cria9So da infra -est rutura 
de atendimento ao usuario do Cirandffo. 
Para a in termed ia9§'o desse servi9o, o 
projeto dispOe de dois minicomputa- 
dores 540 da Cobra, de 1 Mb,operando 
com 32 portas assincronas, duas unida- 
des de fita magne'tica de 1.600 bps, duas 
impressoras de 600 LPM, 12 terminals 
para supervisee desenvolvimento, edi- 
9S0 e atualiza9ao de bases de dados e oi- 
to unidades de disco n'gido de 80 Mb, 
quatro das quais para o back-up, da mes- 
ma forma como um dos 540 da Cobra. 
Com o aumento da demanda, jd e pre- 
vista a instala99;o de uma unidade se- 
melhante em SSo Paulo. 

CirandSo e acessado atraves da 
rede de telefonia a partir de seis cidades, 
em carlter gratuito: Rio, Sffo Paulo, Be- 
lo Horizonte, Brasilia, Curitiba e Porto 
Alegre. Os usudrios de outras cidades, 
por enquanto, acessarffo o CirandSo 
atraves de DDD, arcando com o custo 
da I^afffo. Os servi9os compreendem, 
em termos bdsicos, Banco de Informa- 
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REDE 
TELEFONICA 



300 bps 
1200/75 bps 



MODEM 



MODEM 



300 bps 

1200/75 bps 



*<^ MODEM 




00 



SISTEMA 
CENTRAL 






TERMINAL 
MICROCOM 
PUTADOR 



Esquema de acesso ao Cirandao 

90es, Banco de Programas, Servi90s de 
Comunica90es, Armazenamento de Ar- 
quivos de Usudrios e Servi9o de Suporte 
aos Usudrios. 

De acordo com Luis CMudio Gon- 
9alves, engenheiro de Telecomunica9Qes 
da Embratel, e um dos encarregados do 
Cirandffo, no Banco de lnforma90es es- 
ta sendo disposta, de forma gradativa. a 
mais variada espdcie de dados de interes- 
se dos diversos setores da comunidade. 
sistema efetua a navega^do integrada, 
permitindo ao usuario. sem necessidade 
de mudar de banco de dados, obter in- 
forma90es complemen tares de fontes al- 
ternativas. Isso tudo com constantes 
atualiza90es de dados. 

Banco de Programas possibilita a 
transferencia de variada gama de soft- 
ware aos usuarios, com aten9ffo especial 
k administra9ao empresarial, profissional 
e domestica, ciencia e tecnologia, edu- 
ca9So e jogos. Em rela95o a programas, 
o piano e coloc5-!os nos terminais com 
requisites de seguran9a, como se tives- 
sem sido adquiridos em casas especiali- 
zadas. Atraves de seus mecanismos, 
CirandSb deverd se constituir num vei- 
culo de midia para atendimento dasne- 
cessidades de empresas e clubes de soft- 
ware, possibilitando a inscri9So de novos 
socios. solicitagSo de programas, treina- 
mento, cobran9a de servi9os, divulga- 
930, coleta de opiniOes etc. 

COMUNICA^AO PESSOAL 

Quanto aos Servi9os de Comunica- 
95es, 6 dividido em quatro ^reas; Servi- 
90 de Mensagens, Quadro de Avisos, 
Mercado Eletrdnico e Teleconferencia. 
A primeira delas atende a comunica9Sb 
em nivel pessoal, com caixas postals que 
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armazenam 198 mensagens de 6 Kb ca- 
da, que o usudrio do servi9o recebe ao se 
inscrever no CirandS^o, podendo desig- 
nar seus dependentes para que tambem 
recebam caixas-postais. Quadro de 
Avisos permite ao usuario comunicar- 
se simultaneamente com os demais, en- 
viando-lhes mensagens. Os cirandeiros 
chamam periodicamente quadro para 
saber se hi aviso que Ihes interesse. 
Mercado Eletronico funciona de forma 
semelhante, mas na Elrea especifica de 
compra, venda e troca de bens e servi- 
90s relatives k Informatica. A Tele- 
conferencia permite que usudrio colo- 
que em discussffo um tema, com a pos- 
sivei participa9So dos demais, que po- 
dem comentar. acrescentar informa95es 
e sugestOes, como em uma esp^cie de 
caixa postal publica. 

Mediante um pagamento especilico, 
OS cirandeiros podem dispor de certa 
capacidade de membria particular na ex- 
tensffo Armazenamento de Arquivos. 
Quanto ao ServifO de Cadastro de Usui- 
rios, eles sSo disponi'veis online e gra- 
tuitamente, objetivando ampliar o rela- 
cionamento com sistema. Ele fomece 
listagem de outros cirandeiros, infor- 
ma90es sobre tarifas e servifos e aceita 
sugestOes e solicita90es visando ao aper- 
fei9oamento do sistema. O CirandSb 
permite tambem a forma99fo de comu- 
nidades de interesses comuns, ate mes- 
mo facilitando a opera9ffo de comuni- 
ca9So entre eles. 

A engenheira Talia Chaves Buarque 
de Hollanda, uma das responsdveis pela 
implanta9a'o do projeto, informa que 
nos ultimos meses, de acordo com pes- 
quisa, foram feitas 5.300 ligafOes men- 
sais, em media. Isso representa 03 li- 
ga9ffo por terminal, com dura95'o, 

» 
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Na Mensagem de Erro de MS nP 38, pag. 
106, na correfao das linhas 5340 e 5520 do 
programa Batalha Naval (publicado em 
MS n9 32, pag, 70) ocorreram algumas 
falhas, pois nao foram escritos os caracteres 
invertidos constantes nestas linhas. Assim, 
repetiiemos estas linhas como devem sei 
digitadas: S5*o print i in* .0 ini +16. ■■>■■ 

55£a~LET MJIIINJ ,D(N' i ="1" 



Em MSn9 39, pag. 16, no programa Comp/- 
lador Forth para Sinclair, houve um erro na 
listagem 1, na linha 140. Corrija esta linha 
para; 140 CLS. 



EmMSn9 39, pig. 72, a listagem do progra- 
ma Space Ghost apiesentou falhas de im- 
pressao nas linhas que continham mensagens 
e/ou caracteres invertidos. Para facihtai a 
identifica^ao, publicaremos somente os ca- 
racteres e/ou frases que ficaram ilegi'veis nas 
seguintes linhas: 

150: [NSTRUQOES . . . OBJETIVO: 

160:ATAQUE: 

170:DEFESA: 

210:COMANDOS: 

230:CONSUMO: 

240: VOCE PERDERA SE: 

650; PARAB^NS 

880: SPACE GHOST 

990: > SG 
2550; 'T • 
2570: K 
2580 :B 
2590: B... K 
2610; > SG 
2950: 'T ' 
2990: K 
3000 ;K 
3010: B 
3020: B K 

3030: B K 

3200: CONGRATULAQOES, V0C£ CON- 
SEGURI CUMPRIR SUA MKSAO COM 

£xrro. OS terrAqueos agradecem 

E CONFEREM-LHE O TITULO de * HE- 
ROI ESPACIAL' 

3220:T 



Em MS n9 40. pag. 36. o utilitirio Jogue em 
ritmo Assembler, apresentou incone^oes. E 
necessario as seguintes repaia^oes: na pag. 
37, na primeira coluna, segundo paragrafo, 
na sexta linha, apareceu indevidamente a pa- 
lavra tecla, o correto e: . . . nesse canto mas 
apenas na linha da tela. . ■ Na mesma piigina 
37, no terceiio paiagrafo, segunda linha. 
corrija para: . . . linhas descritas de RUN e 
veja . . . E na flgura 2, apos o IF INKEYJ 
faltou um sinal grifico. O certo e: zzzz IF 
iNKEY$<>""THEN 



Em MS n9 40, o programa entitulado DXCC 
cibernelico (Rodada MS), pag. 74, esta com 
o a^ito e o cum'culo errados. O autor des- 
se programa e Alcione Sperandio Junior, 
formado em Administra^ao de Empresas, 
radioamador desde 1971 e prefixado com o 
indicative PY5CIG. Alcione utiliza micros 
paia desenvolvei programas de uso pessoal 
e aplicativos comerciais na aiea em que atua. 
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tamb^m mddia, de 8'37". Mas com a 
fase comercia] do service iniciada este 
ano, OS mimeros tendem a apresentar 
uma ascensSo, dlz ela. 

Para o usudrio Sebastiffo Machado 
Fiiho, da m^quina 2316, nSo h^ restri- 
95es ao servi9o. Seu tempo de partici- 
pa^ab no Cirandffo 6 utilizado para os 
jogos e aplicativos, na troca de corres- 
pondencia mais formal e na conversa 
com colegas de outras regiOes em tomo 
de assuntos de interesse comum. Enfim, 
como ele diz, "um maravilhoso servi^o". 

O planejamento de custo do Ciran- 
dffo foi feito de forma a nSo pesar de- 
mais no or^amento do usudrio, seja ele 
pessoa fi'sica ou jundica. Ele se compQe 
de tres parcelas b^sicas: o servi^o de 
telecomunica^Oes, que inciui a telefonia 
local (pulsos) e DDD, utilizaijffo do Ci- 
randa^o (arquivamento de dados, caixa 
postal subsidiaria, utilizafSo do quadro 
de avisos etc.) e compra de programas 
de outros cirandeiros. Mesmo assim, essa 
ultima parcela poder^ nffo existir. fi- 
cando a criterio dos provedores. 

Ate o fechamento desta edi9So ainda 
nSo havia sido divulgada a tabela de tari- 
fafSb para o Projeto Cirandffo. Os inte- 
ressados no servi9o podem obter infor- 
ma93es complementares pelos telefones 
(021) 216-7947 6 253-6944. 

RENPAC: 

a transmissao por pacotes 

Outro servi9o novo de interesse do 
usuario de micros oferecido pela Embra- 
tel a partir deste ano e o Renpac - Rede 
Nacional de Comunica9So de Dados por 
Comuta9ffo de Pacotes, de operafSo 
tamb^m muito simples, cuja implanta- 
930 custou i EmbratelUSS ISmilhOes, 
oito dos quais investidos em equipamen- 
tos importados i empresa francesa Sesa. 
E importante destacar que essa opera- 
9ffo foi condicionada pela Embratel i 
transferencia de toda a tecnologia para 
que, absorvida pelo Centre de Pesqui- 
sas de Dados da Telebris, em Campinas, 
possibilite a expansffo da rede com equj- 
pamentos totalmente fabricados no 
Brasil. 

O Renpac 6 um servi9o voltado mais 
para as pequenas e mediasempresas que 
trabalham utilizando Informitica. As ta- 
rifas sSo aplicadas de acordo com o tem- 
po de utiliza9ao dos canais e com o vo- 
lume de informa9aes transmitidas, redu- 
zindo custos e possibilitando acesso li- 
pido a dados existentes em todo o Brasil. 
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Solucoes especfficas 
para grandes usuarios 



yi OS dois novos servii:os implantados comercialmente em 1985 pela Embra- 
r^ tel, juntam-se outros que, apesar de curto espago em operagao na area de 
Informdtica, jd se mostraram muito uteis e em constante aperfeigoamento. Um 
dos servigos mais consolidados e o Transdata, para gestdo de negdcios, 
possibilitando o acesso rdpido a bancos de dados, bolsas de valores, consultas e 
reservas em hoteis e empresas aereas ou em aplicagoes cuja comunicagdo de da- 
dos i elevada ou distribuida intensamente ao longo do dia. 

O Findata e um sistema voltado para a transferencia de dados de forma ndo 
comutada. Permite o acesso de usuarios brasileiros, em tres segundos. a infer- 
magoes constant emente atualizadas sobre mercado financeiro mundial, dispo- 
ni'veis em banco de dados do Exterior, como cotagoes de bolsas de valores e 
mercadorias. moedas. taxas de juros etc. Um servigo criado principalmente para 
OS setores financeiros e de comercio exterior. 

O Interdata e outro servigo da Embratel que emprega tecnologia de comuta- 
gdo de pacotes, permitindo a conexdo de usudrios brasileiros a terminals no 
exterior e vice-versa. Sua vantagem e possibilitar o acesso a mais de 300 bases 
de dados publicas fora do Brasil, com informagoes a respeito de Medicina, En- 
genharia, Energia, Educagdo, Noticias etc. 

Hd outros servigos especificos da Embratel voltados a usudrios de compu- 
tadores, como o Airdata. Ele se destina exclusivamente a empresas aereas asso- 
ciadas a Sita - Sociedade Internacional de Telecomunicagoes Aeronduticas - 
para intercdmbio de informagoes entre as fitiais e sucursais na atualizagao de 
negdcios e reservas de passagens. Jd o Inmarsat permite que, via satelite, qual- 
quer usudrio em terra se comunique com um navio. plataforma ou embarcagdo, 
desde que tambem devidamente equipado. 



No sistema Renpac os acessos aos ser- 
vi9os podem ser dedicados, atraves de 
terminals inteligentes, por telefone ou 
telex. Para isso ha 1 .774 acessos dedica- 
dos, 546 via telefone e 174 via telex. Jd 
estao funcionando cinco dos oito cen- 
tres de comuta9So, no Rio de Janeiro, 
SSo Paulo, Belo Horizonte, Brasilia e 
Curitiba. A partir do interesse e da ne- 
cessidade, serSo ativados os de Recife e 
Porto Alegre, alem de mais um em SSb 
Paulo. 

Entre as formas de utiliza9go do Ren- 
pac h^ o servi9o 3025, de acesso dedi- 
cado, sendo que os procedimentos de 
comunica9ao se fazem regulados pelo 
protocolo X.25 da CCITT (Conselho In- 
ternacional de Telefonia e Telegrafia). 
Apesar de manter a estrutura interna de 
suas miquinas no padrSo SNA, a IBM, 
que tern a maioria dos computadores de 
grande porte instalados no Brasil, ji se 
comprometeu a dar suporte ao X.25. 
servi9o 3028 ^ tambdm dedicado, po- 
rem o protocolo 6 o X.28, para trans- 
missao assmcrona. Neste caso, ao in- 
verse do anterior, que j^ transmite o 
pacote em bits, a rede 6 que tem de 
montar o pacote a partir dos caracte- 
res entregues pelo sistema do usuario. 
O servi9o 2000 possibilita o acesso a um 
centro por telefone e o 1000, por um 
terminal de telex. A versatilidade do 
Renpac permite, por exempio, interli- 



gar um terminal operado em modo ca- 
rater a 1200 bps a uma porta de com- 
putador que esteja operando a 4800 bps 
em modo pacote. 

Com a implanta9So do Renpac, pro- 
curou-se uma tarifa9So mais adequada e 
economica ao usuirio em relafJo a seu 
mais pr6ximo concorrente, o sistema 
Transdata. E em determinados modos 
de utiliza9ao do Renpac a economia ob- 
tida chega mesmo a 48 por cento. Mas o 
servi90 foi criado de forma a atender ne- 
cessidades especi'ficas. Apenas para 
exemplificar, no sistema 3028, em aces- 
so dedicado, a assinatura fica neste pri- 
meiro trimestre do ano em tomo de 
Cr$ 470.000 em velocidade de 300 bps 
e Cr$ 575.000, para 1200 bps. Mas no 
servi90 3025, mais sofisticado, ela pode 
chegar pr6ximo a Cr$ 3 milhOes. 

Quem tem o micro no escrit6rio, no 
sistema 2000, pagara no primeiro tri- 
mestre por volta de Cr$ 200 por minuto 
de utiliza9So do servi90. Nos domingos, 
feriados e sibados apos 14h e diaria- 
mente ap6s 20h, a tarifa cai para Cr$ 
110 o minuto. Utilizando o sistema 
1000, de telex, o minuto em qualquer 
dia custa atualmente Cr$ 180. Mas os 
pianos de tarifas oferecidos pela Embra- 
tel sSo bem variados, de acordo com o 
sistema utilizado e a forma de transmis- 
sao dos dados. ■ 



Texto final: Ben/ Lima Pereira 
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Leve logo um microcomputador 
TK 85, porque ele e realmente facil de 
usar: jo vem com manual de instruqoes, 
que ensina,em portugues daro, 
a linguagem Basic. 

A partir dai, voce pode preparar 
seus proprios programas ou utilizar as 
centenas de programas que ja existem 
no mercado, para cadastrar clientes, controlar 
estoques, manter em ordem o orqamento 
familiar, fiscalizar a conta bancaria, estudar 
motematica, estatistica, jogor xadrez, guerra 
nas estrelas, e o que mais voce puder imaginar. 
E alem disso tudo, o TK 85 tem 
tambem o pre<;o mais acessivel do mercado. 
Pe^a uma demonstra^ao. 



TK 85,0 micFO que voce pode usaE 



M.vRO SISTEMAS, fevereiro/85 



computadores pessoais 



BANCOS DE DADOS — Conhega a importancia das 
regras logicas tanto na programagao quanto no tratamento 
e organizagao dos dados 



A Logica na 



programacao 



Jorge da Cunha Pereira Fitho. 



OS computadores sao mdquinas 
extraordinarias. por^m sao 
apenas isto: maquinas. A or- 
ganiza^ao dos computadores 
faz com que sejam capazes de executar 
apenas opera9oes muito elemenlares, 
obedecendo a regras n'gidas e velocida- 
des eietronicas. A alti'ssima velocidade, 
que chega a ser avaliada em MIPS (Mi- 
Ihoes de Instru^oes Por Segundo), 
KOPS (o K e de quilo, milliares de Ope- 
ra?5es Por Segundo) e MFLOPS (Mega 
Floating-point Operations Per Second, 
isto 6, milhoes de opera9oes de ponto 
flutuante por segundo), compensa a 
burrice do computador. 

Combinando seqiiencias de instru- 
9oes primitivas de maquina chega-se a 
executar uma fun^ao mais complexa. 
Reunindo-se um conjunto destas fun- 
foes de forma organizada e 16gica, tem- 
se um programa de computador. No 
programa reside toda a inteligencia que 
% emprestada a maquina, e e de onde 
vem a sua paradoxal flexibilidade de 
aplica^ao. Esta flexibilidade vem com- 
pensar a rigidez das regras de progra- 
ma9ao. 

As possibilidades de apUca9ao do 
computador sao, assim, praticamente ili- 
mitadas devido as miiltiplas op9oes da 
troca de programas. A cada novo progra- 
ma corresponder^ um novo comporta- 
mento e, portanto, uma nova aplica- 
930. Desta maneira, a limita9ao de em- 
prego dos computadores fica condicio- 
nada d capacidade do homem de imagi- 
nar novos usos e- mais ainda, de cons- 
truir OS programas necessarios. A cons- 
trufao de programas e uma tarefa traba- 



Ihosa e complexa. que requer m3o de 
obra especializada e, dependendo do vo- 
lume de aplica96es imaginadas e possi- 
vel que chegue a faJtar a necessaria mao- 
de-obra para constru9ao dos programas. 
O risco existe porque a imagina9ao ^ 
mais livre e rapida do que a tecnologia. 
embora desenvolvimento tecnoldgico 
venha se acelerando. Haver^ um equili- 
brio. em future proximo, entre a imagi- 
na9ao e a tecnica? 

A IMPORTANCIA DA LOGICA 

A constru9ao de programas e. assim. 
a questao central para um uso eficaz dos 
computadores na solu9ao dos problemas 
do homem. Constituindo-se os progra- 
mas em conjimtos de fun9oes organiza- 
das de maneira 16gica. obedecendo a leis 
do raciocinio. as regras para racionar 
corretamente tomam-se fundamentals. 
Os programas tern que estar logicamente 
corretos, sem o que nao sao confiiveis. 

As regras para um raciocinio coneto 
\i eram conhecidas dos antigos gregos, 
no seculo IV A. C, desenvolvidas pelos 
fil6sofos clissicos S6crates, Platao e 
Aristoteles. A este ultimo, em particu- 
lar, coube criar o corpo de doutrina 
conhecido como L6gica Formal, Logica 
Menor, Logiquinha ou Epistemologia, 
que cont^m a sistematiza9ao dessas leis. 
Sobre esta descoberta dos gregos repou- 
sa todo o avan90 tecnoI6gico moderno: 
a Ciencia repousa sobre a L6gica. 

A interpreta9ao matematica dessas 
regras 16gicas, contudo, so ocorreu em 
1854, quando o ingles George Boole 
publicou seu trabalho "Uma investi- 



ga^ao das leis do pensamento". Este 
conjunto de conliecimentos e hoje cha- 
mado de Algebra Booleana, constituin- 
do-se parte da Logica Simbolica ou L6- 
gica Matematica. Na epoca. contudo. 
ninguem sabia exatamente onde aplicar 
tais conhecimentos ou imaginava sua im- 
portancia para a constru9ao dos moder- 
nos computadores e mesmo para sua 
programa9ao. 

Quase um seculo mais tarde, em 
!937. o americano Claude Eiwoood 
Shannon, jovem estudante do MIT. em 
sua tese de mestrado "Uma analise sim- 
b61ica de circuilos de comuta9ao e rel^s" 
mostrou que a L6gica Simbolica de 
George Boole descrevia exatamente os 
circuitos 16gicos (ou digitals), a base 
para projeto dos computadores. Esta 
descoberta Ihe valeu o premio Nobel em 

1939. 

Mais recentemente a partir da deca- 
da de 70, novas regras logicas tem sido 
enunciadas, para o processamento de 
infonna9oes. como o atestam os chama 
dos metodos de Programacao Estrutura- 
da e. por outro iado, a Algebra Rclacio- 
nal e o Cdlculo Relacional. aplicaveis a 
Bancos de Dados chamados relacionais. 

Para que se possa entender melhor a 
aplicacao de regras Ibgicas no processa- 
mento de informa9oes, seria relevante 
termos uma visao detalhada do que seja 
esta informa9ao e de como ela € por nos 
absorvida e e strut urada. 

OBTEN^AO DA INFORMACAO 

A Informagdo tem sua origem na rea- 
lidade que nos cerca. A partir desta rea- 



SAO POSSlVEIS VArIAS REPRESENTAgOES DO TERMO: 





CONCEITO 



TERMO 



r 



TERMO = VALOR 



quatro 
REPRESENTAgAO 

1 



INTERPRET AC RO 





REPBESENTACAO 
MUNDO L<5GIC0 MUNDO FfSICO 

opera^oes inverses = mapeamentos ^ sentidos opostos 



Figura 1 

lidade, por uma operacSo de abstjngdd, 
obtem-se o conhecimento. 

conhecimento de um ser (ou obje- 
to, ou entidade, ou ente) existente no 
mundo real e constitui'do por um con- 
ceito (ou ideia), que reflete seu tipo (ou 
essencia. ou natureza), e um termo. 
termo € que nos permite comunicar a 
id^ia e, em processamento de dados, e 
chamado de valor. Um termo ou valor 
pode ter diversas representafoes, como 
mostraa figura 1. 

A informafao, conceito ou termo, 
existe no mundo logico, ou seja, € total- 
mente distinta da sua representa9ao, a 
que comumente chamamos dados, que 
existe no mundo fisico. 



Figura 2 

A partir da representa9ao, a informa- 
930 podera ser obtida novamente por 
uma opera9ao de interpretagao. Desta 
forma, representacao e interpretacao sao 
opera96es inversas e correspondem a 
mapeamentos. em sentidos opostos, en- 
tre informa9ao e representa9ao. Uma 
representacao grafica das opera9oes aci- 
ma descritas encontra-se na figura 2. 

Process ando-se os dados, tem-se o 
processamento indireto da informagad. 
Por isto fala-se indistintamente em pro- 
cessamento da informacao ou de dados, 
quando na realidade s6 se pode proces- 
sar diretamente os dados. 

processamento de dados se faz 
usuaimente sobre um grande volume de 



ijiforma9ao, cujo tratamento e manipu- 
13930 e talvez um dos mais graves pro- 
blemas da atuaUdade. A quantidade de 
informa9ao cresce exponencialmente, 
sendo impossivel ao ser humano proces- 
sar o volume de informa9ao de que ne- 
cessita a cada dia, em seu campo de ati- 
vidsde . 

Pode-se perceber que existem dois 
grandes grupos deinforma95es: primei- 
ro deles de informa9ao nao estruturada 
ou nao formatada, e o segundo de infor- 
ma9ao estruturada ou formatada. A di- 
ferenfa entre tratamento de um grupo 
e do outro, ao menos nos dias atuais, faz 
com que sejam estudados sepaiada- 
mente. « 
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Em 5 vezes sem juros 



Excepcional desconto a vista 



TEMOS DRIVE E 
INTERFACE PI TK 2000 

GRAFIXMX80EMX100, 

JA VEM COM PLACA 

PI RESOLUQAO GRAFICA 

BRASILTRADE CENTER 






THE 
FIRST 
VIDEO 
CASSETE 
ENGLISH COURSE 

• Com 2 fttas de 3.30 hs. de duragao, um manual, um 
livro de exercicio e um de texto voce e toda a sua 
familia aprenderao a falar ingles, a lingua universal. 

• Produzido a cores pela equipe da TV mais 
jmportante do Brasll. • Gravado em estudio e em 
externas mostrando sempre cenas do nosso cotidiano. 

• Prego de lan^mento a vista com desconto 



Fa^a-nos uma visita em qualquer um 
dos nossos endereQOs: 

INFORMAQOES: TEL.: 259-1 299 

COMPUTER CAMPING 
BTC VIAGENS E TURISMO 



Av. Epiiacio Pessoa. 280 (Esq. Vic. Piraja) — IPANRMA Tel.: |02I) 259-1299 — Telex: (020 30212 BTCP-BR 

Assemhieia. lO/ij. 112 (Ed. Candido Mendes) — CENTRO Tel,: 222-5343 

Av. das Americas. 4790 s/615 (Ceniro Profissional Barra Shopping) — BARRA Tel.: 325-0481 

Rua !6 de Marc'o. 80 s/lj, 3 — PETROPOLIS 

P los Mineiros. 55 s/102 — VAl.EN(;.'\ 
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A L(5GICA na programacAo 



ABSTRAgAO 
1 2 PASSO 



MODELAGEM 
22 PASSO 




inf ormaijao 




W\ 



modelada ou 

estruturada 



1 AND (A$ = "S") 
A 3 OR B 7 



A=4 OR B=3 AND A$= "S" 
C$="FALSO" AND NOT B 3 



Figura 5 



Figura 3 

Um bom exemplo desta distin9ao € 
encontrado nos bancos de dados, indis- 
pensiveis para a implanta^ao de sistemas 
gerenciais. Os sistemas de bancos de 
dados que manipulam infonna9ao nao 
formatada sao conhecidos como siste 
mas de recupera9ao da informa^ao. Al- 
guns distinguem, nestes ultimos. a busca 
retrospectiva, que pennite fazer consul- 
tas sobre a informa9ao previamente 
armazenada, da disseminagao seletiva. 
que possibilita a distribuigao da infor- 
mafao previamente classificada de acor- 
do com o perfil de interesse dos usuirios 
do sistema, como dois de seus subsiste- 
mas. 

Os sistemas de bancos de dados que 
manipulam a informa^ao formatada ^ 
que sao correntemente chamados de 
bancos de dados, e fazem parte de siste- 
mas de infonna9ao empresarial. Talvez 
por isto tenham side, aX€ agora, foco de 
maiores aten9des. 

£ possivel que haja um denominador 
comum entre os dois tipos de banco de 
dados. Todavia, se e quando ocorrer^ 
uma convergencia no tratamento dos 
grupos de iaforma9ao 6 ainda uma in- 
c6gnita. 

ORGANIZAgAO DA INFORMACAO 
ESTRUTURADA 

A informa9ao estruturada nSo € 
obtida em um unico passo. Deve-se dis- 
tinguir a informagdo inicial da informa- 
gdo modelada. A iiiforma9ao inicial ^ 
aquela a que geralmente chamamos co- 
nhecimento, e se constitui numa infor- 
mafao generica, nao estruturada, com 
contomos nao muito nftidos e possivel- 
mente aJgimias imprecisoes. 



10 INPUT AS 

20 INPUT BS 

30 LET CS = "F" 

40 IF AS = "V" AND BS = 

50 PRINT "A= "; A$; " B= 

60 STOP 


"V" THEN LET CS 
"; BS; " A.B= " 


= "V" 
CS 


Figura 6 







Para que a informa9ao seja proces- 
sada, como dado, ela tern que ser or- 
ganizada e sofrer um processo de refi- 
namento. Portanto, a partir da informa- 
930 inicial, com base em um modelo, d^- 
se a organiza9ao. Sao necessarias, desta 
forma, duas etapas de abstra95o para se 
chegar & informa9ao modelada. Esta se- 
qiiencia de opera9oes pode ser vista na 
figura 3. Nela, esta representada a 
obten9ao de estnituras de infonna9ao 
(ou constru^Ses), compostas por valores 
elementares (atomicos) e suas liga96es 
(ou relacionamentos, ou nexos, ou de- 
pendencias ou conexQes). A partir de 
estmturas mais simples, por composi- 
930, 6 possivel obter-se estruturas de 
informa9ao mais complexas. 

A rela9ao 16gica entre os diversos 
elementos de uma estrutura de informa- 
fao ou entre um grupo de estruturas 
simples nao 4, contudo, uma necessida- 
de puramente abstrata. Na constru9ao 
de programas de computador, existem 
regras de liga9ao e relacionamento de 
expressSes que devem ser observadas, 
visto que programas nada mais fazem 
que transformar estruturas de informa- 
^o. 

A LOGICA da algebra de BOOLE 

controle de execu9ao de um pro- 
grama depende da verifica9ao de deter- 
minadas condi9oes. que sao expressas 
por meio de expressSes 16gicas em quase 
todas as iinguagens de programa93o de 
alto ni'vel. 

As expressOes 16gicas sao formadas, 
basicamente, com o uso de operadores 
16gicos como o NOT (nao 16gico), o 
AND (e Idgico) e OR (ou 16gico). Algu- 



mas Iinguagens incorporam outras ope- 
ra9oes 16gicascomo, XOR(ou exclusive), 
IMP (impiicancia) e EQU (equivalencla). 
Vamos aqui nos restringir aos tres pri- 
meiros. os mais usuais. 

As opera96es NOT, AND e OR, na 
Algebra Booleana, sao expressas por ta- 
belas de verdades. onde representa 
valor falso e o valor I representa verda 
de. Na figura 4 estas tabelas sao apresen- 
tadas, onde NOT 6 representado por 
- (barra), AND por . (ponto) e OR por 
+ (mais). 

Existe uma preced^ncia na aplicafao 
dos operadores que 6, da maior para a 
menor prioridade: NOT, AND e OR. 
Alem disto, nao pode haver dois opera- 
dores juntos (como AND OR). Exce9ao 
6 aberta para NOT, que pode ser prece- 
dido de AND ou OR (como AND NOT). 

Uma das instru9oes que utilizam as 
expressSes logicas e a de desvio condi- 
cional. que, dependendo da iinguagem 
de programa9ao, pode ter a forma IF- 
THEN ou IF -THEN-ELSE. A figura 5Uus- 
tra a forma93o de algumas expressoes 
booleanas em iinguagem BASIC. 

A observa9ao da figura 5 revela que 
OS membros de uma expressao 16gica 
podem conter outras expressoes Jdgicas 
(como sao as expressoes relacionais), 
expressoes aritmdticas ou alfanumericas 
e parentesis 

As expressoes relacionais estabelecem 
uma relagao entre duas expressoes arit- 
mdticas ou alfanumericas atrav^s de ope- 
radores que, na Iinguagem BASIC, sao 
representados por: < (^ menor do que); 
< = (^ menor do que ou igual a); = {€ 
igual a);< >(^ diferente de); > = (e maior 
do que ou igual a); > {i maior do que). 
As opera9oes relacionais permitem com- 



NOT 


AND 


OR 


= 1 

T = 






1 
1 


.0 = 
.1=0 

.0 = 

.1 = 1 


+ = 

0+1 = 1 
1+0=1 

1 + 1 = 1 



Figura 4 
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10 teorema: A . B = ft + B 


2« teorema: A + B 


- A . 


B 


Figura 7 


IF 1A>31 AND IAS--SIM'1 THEN ... 
condi^ao Inicial 


IF [A'. 31 OR 1AS""SIM" 

conditio In versa 


THEN 





Figura 8 



parar dois valores (ambos num^ricos ou 
ambos alfanumericos) e estabelecer a re- 
Ia9ao entre eles, resultando em um valor 
falso ou verdadeiro. 

Um exemplo elementar da apIica9ao 
de opera9oes booleanas na programa9ao 
e mostrado na figura 6, com um progra- 
ma em BASIC que le dois valores boo- 
leanos Falso e Verdadeiro, exibindo na 
tela o resultado do AND. 

A aplica9ao do exemplo na figura 6 
foi feita apenas para dois termos, A e B. 
Todavia, pode ser generalizada para 
qualquer mimero de termos. Alem disto, 
ao inves de um linico tipo de operador, 
podera ser avaliada uma expressao que 
contenha os tres tipos de operadores si- 
multaneamente, em qualquer numero e 
ordem. 

Afora as expressoes fundamentals, 
existem muitas outras rela9oes na Alge- 
bra de Boole - todas demonstraveis na 
forma de teoremas — , das quais duas 
tem particular interesse para a progra- 
ma9ao: os dois teoremas de De Morgan, 
apresentados na figura 7. 

A aplica9ao dos teoremas de De Mor- 
gan permite ao programador inverter as 
condi96es de teste em desvios ou outras 
Lnstru9oes condicionais. Um exemplo 



com a instrufao de desvio condicional, 
em BASIC, esta na figura 8. 

Outras relagQes da Algebra Booleana 
tamb^m podem ser uteis ao programa- 
dor. todavia foge ao escopo deste artigo 
'examinar todas as possibilidades. 

A LOGICA DA PROGRAMAgAO 
ESTRUTURADA 

A palavra de ordem na programa9ao 
6 estruturar os programas. Novamente 
aqui, a L6gica esta presente. e nao pode- 
ria ser de outra forma. 

Programar de forma estruturada im- 
plica em obedecer ao racioci'nio natural, 
ou seja, descrever os processos como 
eles sao, sem utilizar artificial ismos que 
dificultem a compreensao dos progra- 
mas. 

Para tal, e necessario analisar e des- 
crever OS problemas como a pr6pria in- 
teligencia faz; do geral para o particu- 
lar, ou, no jargao dos t^cnicos, de cima 
para b^xof top-down). Os problemas que 
nossa inteiigencia pode entender de um 
s6 relance sao muito poucos. Isto nos 
obriga a sucessivas passagens sobre o 
problema, desdobrando-o, a cada etapa, 
em problemas mais simples: por refina- 



mentos sucessivos (step-wise refinement). 
Al^m disto, 6 precise utilizar estruturas 
logicas disciplinadas, padronizadas e 
bem conhecidas. 

Os tipos de estruturas 16gicas basicas, 
na programa9ao estruturada, sao tres: 
seqiiencia, altemativa e repeti9ao. Cada 
uma destas estruturas (ou blocos) cor- 
responde a uma forma natural de racio- 
ci'nio. Estas estruturas de racioci'nio e as 
respectivas estruturas de programa9ao 
sao apresentadas na figura 9. 

Al^m dos blocos ibgicos da figura 9 
(que sao b^sicos), outros lem sido de- 
senvolvidos, correspondendo a outras 
estruturas de raciocinio. Assim, por 
exemplo, e possivel generalizar a alter- 
nativa para ter miiltiplos caminlios, cor- 
respondendo a estrutura de altemativa 
mlUtipla (case), representada em BASIC 
pela instru9ao ON-GOTO (ou GOTO< 
expressao aritm^tica > em BASIC Sin- 
clair). 

Em muitos casos, tambem e util dis- 
por de uma instru9ao para abandonar 
um bloco de repeti9ao que, no caso do 
BASIC, e implementada por uma ins- 
tru9ao IF-THEN dentro do alcance do 
bloco e fazendo desvio para fora da 
malha de repeti9ao. Um caso particular 



TlPO 
DE 
HACIOClNIO 


BLOCO L(iGICO 


TIPO DE BLOCO 


DIAGRAHA 


EXEMPLO EM BASIC 


Simples 
enumera^ao 

( linear) 


Sequencia 


1 
1 I . 1 


bO INPUT X ll 

60 LET V " x**z : ' 

70 PBISJT Y ,■ 

; n 


DlBtincio 

ou 

Dec i sao 


Altemativa 
simples 


r 




100 IF A=i THEN LET Co? 

c — "" : I 


Altemativa 

dupla 


1 


too IF A-3 THBH GOTO SOO 

200 GOTO 700 
SOO LET Z=X**2 

700 LET W-P-5 


1 ndtKjao 
I cera^ao 


Enquanto- 
[ a ?. e r 




J-i 




100 IP B«7 THEN GOTO 300 

• u 

200 GOTO 100 
300 LET P»Q-2 


Repet I r- 
ate 


1 
1 


100 LET 2i=X**7, 

■ : )^ 

200 If B>- 7 THEN GOTO 100 
300 LET P-Q-2 
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J^ Seu micro nao 
^^pode parar 



CHAME MS: ASSISTENCIA VITAL EM MICROS 



IBM PC, RADIO SHACK, APPLE COMPUTER, 
EPSON E TODAS AS MARCAS NACIONAIS. 

A MS trabatha desde 1971 em assistSncia especializada em 
microcomputa^ao que se estende desde check-ups preventi- 
ves at6 a substituigao de pegas, de unidades perifericas ou do 
prbprio micro durante o tempo em que ele estiver em prepare. 

Tenha ao seu lado a melhcr assislSncia t6cnica em micro- 
computadores do pais. 

FA9A COMO AS GRANDES EMPRESAS: 

Vang, Petrobras, Pao de Apijcar. A90S Villares, Phiico, etc. 

Contrato de manutengao com a MS 6 garantia de bom f uncio- 
namento de seu equipamento. 

Solicite nosso representante ou fapa-nos uma visita. 



MS 



Assist6nciaTdcnlca a Microcomputadores, 
Rua Dr, Astolfo Araujo, 521 fone: 549-9022 
Cep.: 04012- Pq. Ibirapuera - SSo Paulo. 




A L6GICA NA PROGRAMAgAO 



da estrutura enquanto-fazer 6 a estru- 
tura para-fa2er, que no BASIC corres- 
ponde a malha de repetigao construida 
com FOR-TO-STEP e NEXT. 

Deve-se observar que os blocos fun- 
clonals basicos tern uma s6 entrada e 
uma s6 sai'da. Caso se programe em 
BASIC, contudo, esta caracteristlca po- 
de nao ficar muito clara. Isto se deve ao 
fato de que o BASIC nao 6 uma iin- 
guagem estruturada e, portanto, 6 preci- 
so simuiar muitas das estruturas atraves 
de instrufoes IF-THEN e GOTO. 

A U)GICA DA ALGEBRA 
RELACIONAL 

Bancos de dados sao Importantes 
intrumentos para a imptantat^ao de siste- 
mas de lnfonna9ao. nao apenas em gran- 
des computadores mas tamb^m em 
micros. 

Do modelo ou vista que o usuario 
tem da estrutura de dados na base de 
dados, resultam tres enfoques gerals: 
em redes, hierdrquico e relacional. 

modelo relacional, em particular, 
apresenta maior Interesse devido a sua 
slmpllcldade . Os arqulvos de dados sao 
vistos como tabelas em que cada linha 
corresponde a urn registro de dados. 
Cada registro. como e usual, engloba 
diversos campos. No modelo relacional, 
todavia, estas estruturas de dados tem 
nomes pr6prios. A tabela ou arquivo e 
chamada de relagdo, por analogla com o 
termo correspondente da teorla dos con- 
juntos, de onde a teoria do modelo rela- 
cional derlvou. Um registro € chamado 
de tupla (de n-tupla). 

Por analogia com as opera^oes sobre 
conjuntos matematlcos, diversas opera- 
foes foram definldas sobre as rela^oes. 
Deve-se observar que o resultado de 
uma opera^ao sobre rela9oes i. sempre. 
uma nova rela^ao. As principals opera- 
96es sSo uniao; interse^ao; lndiferen9a; 
produto cartesiano ; proje9ao ; sele9ao 
(restri9ao);jun9ao e dlvisao. 

A operagao de uniao, entre as rela- 
96es A e B do mesmo tlpo, € represen- 
tada por T -^ A U B, onde T ^ a rela9ao 
resultante. Corresponde as opera9oes de 
intercalagdo ou inclusao. 

A opera9ao de intersegdo, entre as re- 
la9oes A e B do mesmo tipo. € represen- 
tada por T-«- A n B, onde T d a resultan- 
te. Corresponde a operafao de extragao. 

A diferenga, entre as rela96es A e B 
de mesmo tipo, 6 representada por 
T -<- A — B. Corresponde a opera9ao de 
exciusdo. 

A operafSo produto cartesiano. das 
rela9oes A e B, de tipos dlferentes, 6 
representada por T-*-A x B. Corresponde 
a concatenagdo das tuplas (reglsros) de 
ambas as rela9oes A e B, segundo regras 
slmllares as da matem^tica. aplicadas a 



RELAgOES: 
A: 



B: 



C: 



COD 


NOM 


DEP 




COD 


NOH 


DEP 




NDEP 


SIGLA 


019 


JOAO 


100 


005 


MARIA 


300 


100 


PROD 


047 


30St 


100 


047 


JOSI?: 


100 


200 


ADM 


031 


ANTONIO 


200 


-— 






300 


CONT 



OPERAgOES : 
UNlflO 



T: 



COD 


NOM 


DEP 


049 


JOfiO 


100 


047 


JOS^ 


100 


031 


ANTONIO 


200 


005 


MARIA 


300 



INTERSECRO 



T: 



E 



DIFERENi^Vi 



COD 



047 



NOM 



JOS^ 



DEP 



too 



T: 



COD 


NOM 


DEP 1 


019 


JOAO 


too 1 


031 


ANTONIO 


200 P 



PRODUTO CARTESIANO 



T: 



B X C 



COD 


NOM 


DEP 


NDEP 


SIGLA 


005 


MARIA 


300 


100 


PROD 


005 


MARIA 


300 


200 


ADM 


005 


MARIA 


300 


300 


CONT 


047 


JOSt 


100 


100 


PROD 


047 


JOSE 


100 


2O0 


ADM 


047 


JOSt 


100 


300 


CONT 



PROJE^AG 



T: 



T A DEP 




RESTRigAO 



T: 



T A DEP=100P 



COD 


NOM 


DEP 1 


019 


JOAO 


100 1 


047 


J0S6 


100 P 



JUNgAO 



T: 



F 



T A DEP = NDEP C 



COD 


NOM 


DEP 


NDEP 


SIGLA 


019 


JOAO 


100 


100 


PROD 


047 


JOSt 


100 


100 


PROD 


031 


ANTONIO 


200 


200 


ADM 



Figura 10 

itens de dados escoihldos. 

A opera9ao de projegdo, sobre uma 
rela9ao A, e representada por T-<-A (X, 
Y,..., Z), onde X,Y,... e Z s5o atributos 
da rela9ao. Esta opera9ao corresponde a 
uma eliminagdo de colunas de uma rela- 
9ao. Restarao apenas as colunas de 
nomes X,Y... e Z, fazendo-se a ellmina- 
930 tambem de linhas repetidas. isto 6, 
nao sao permltldas linhas duplicadas. 

A opera9ao de restrigdo, sobxe uma 
rela9ao A, € representada por T -*- A 
(X = a, Y = b, ..., Z= c), onde X,Y,... e Z 



sao atributos e a. b,... e c sao os valores 
dos atributos. Esta opera9ao determlna 
a sele9ao de tuplas (registros) que aten- 
dem a condl9ao estabeleclda, Isto d, 
possuem como valor dos atributos X, 
Y,... e Z OS valores a, b,... e c, respectiva- 
mente. Corresponde a uma opera9ao de 
extragao ou de encontrar registros. 

A opera9ao defungdo, das rela95es A 
e B, de tlpos dlferentes, 6 representada 
por T -^ A (P= Q) B, onde P ^ um atribu- 
to da relafao A, e Q ^ um atributo da 
rela9ao B. Sera felta a concatenagdo das 



tuplas das relafoes A e B, quando estas 
tiverem os valores dos atributos P e Q. 
Corresponde ao estabelecimento de uma 
ligagdo. 

A opera9ao de divisdo, do conjunto 
A pelo conjunto B, 6 representada por 
T-f-A (X : Y) B, onde X e um atributo 
de A e Y e um atributo de B. Sera felta 
uma restrigdo sobre B com rela9ao a Y. 



A seguir, serao relaclonadas em A as 
tuplas que possuem, sob o atributo X, a 
seqiiencia completa dos valores dos atri- 
butos da restri9ao obtlda em B, sob o 
atributo Y. Corresponde a uma restrigdo 
mtiltipla, Isto e com base em um con- 
junto de valores de um atributo. 

A Algebra Relacional 6 completa, 
possulndo todas as opera9des necessarias 



ao processamento de lnforma9oes. Sua 
grande vantagem 6 que nao exlslem de- 
pendences, seja com rela9ao aos dados, 
a estrutura de dados ou a metodos de 
acesso que s2o Ignorados. Exeniplos de 
algumas das opera96es da Algebra Rela- 
cional, com base em tres tabelas relacio- 
nais. A, B e C, encontram-se na figura 
10. 



BIBLIOGRAFIA 



- CUNHA PEREIRA F9, Jorge da. Perspectivas na tecnologia 
de banco de dados, Anais da 2? Reuniao Brasilelra de Clencia 
da lnforma9ao (por editar), em microficha, CNPq/IBICT, Rio 
de Janeiro. MAR/79, 21 pp. 

- CUNHA PEREIRA FP, Jorge da. Banco de dados, hoje. Da- 
dos e Id^las vol. 4, nP 4, FEV/MAR/79, pp. 54/63. 

- CUNHA PEREIRA FP. Jorge da, Os bancos de dados estdo 
mudando? Anais do XII CNPD, SUCESU, Sao Paulo, OUT/79, 
pp. 327/33. 

- CUNHA PEREIRA FP Jorge da. Banco de dados: futuro. 
Anais do !I CRC - Congresso Regional de Computa9ao, SU- 
CESU-MG. Belo Horlzbnte, 14-18. ABR/80, pp. 151/65. 

- CODD, E. F.. A relational model of data for large slmred 
data banks. Communications of the ACM, vol. 13. nP 6. JUN/ 

70, pp 377/87. 



— MARITAIN, Jacques, Logica Menor, AGIR, Rio de Janeiro. 
1958.33 edi9ao.301 pp. 

— RICHTER, Gemot, On the relationship between Information 
and data, in Lecture Notes in Computer Science, nP 39, Data 
Base Systems, Springe r-Verlag, Beriln, 1976, pp. 21/43. 

— SUNDGREN. Bo. Conceptual foundations of the info logical 
approach to data bases, in Data Base Management, edited by 
Klimble. J. W. e Koffeman, K. L., North-Holand Publisliing 
Co.. 1974. pp. 61/96. 



Jorge da Cunha Pereira Filho i engenheiro civil formado pela UERJ 
(1965) e mestre em CiSncias em Engenharia de Sistemas e Computagao 
pela COPPE/UFRJ (1975). Desde 1970 6 analista de sistemas e tem 
publicado diversos livros t^cnlcos de sucesso, como o bestseller 
"BASIC Bisico ". ^ ainda respons^vel pela edifSo de boletins e colefoes 
da 4rea de inform^tica. e participa ativamente de palestras. seminArios e 
congressos de PD. 



m 



fTrPEQPLE 

Computacao 




46 



MICRO SISTEMAS, favweiro/SS 



BANCOS DE DADOS — Com a populariza^ao do hardware os usuarios 
de micros passaram a acessar grandes bancos de dados. 
Veja alguns conceitos sobre este assunto 



Administracao 

de dados e os micros 



Antonio L. Furtado • Daniel A. Menasce 



Essa maneira sUnples de visxializar arquivos como tabelas, 
e de combinar a informa^ffo contida em uma com a que existe 
nas outras atraves da compara9ffo de valores, 6 uma das carac- 
terfsticas do chamado modelo de dados relacional. Um modelo 
de dados consiste de certas estruturas de dados (tabelas, no ca- 
se do modelo relacional) que obedecem a certas regras e sSo 
manipuladas por certas opera^Oes. Uma das opera^Ses mais 
imporlantes do modelo relacional e a operafffo de jun9iro, que 
permite justamente associar informafOes contidas em duas ta- 
belas atraves da compaia^So de valores. 

AJem do modelo relacional, h^ dois modelos importantes - 
o hierirquico e o de redes — , os quais envolvem estruturas de 
dados mais complexas. Os diversos sistemas para definir e ma- 
nipular bancos de dados (Sistemas de Gerencia de Bancos de 
Dados - SGBDs) seguem, em geral, um desses modelos, con- 
forme OS exemplos abaixo: 

- modelo hierdrquico - IMS, sistema 2000 

- modelo de redes - IDMS, DBMS-10, DMS-1 100, IDS-II 

- modelo relacional - SQL/DS, QBE, INGRES 

Nenhum desses exemplos de SGBD e voltado para micro- 
computador, mas essa falta ser^ corrigida mais adiante. Antes, 
gostarfamos de observar que, qualquer que seja o modelo de 
dados seguido por um SGBD, e litil que o SGBD disponha de 
mais algumas estruturas auxiliares para tomar o acesso aos 
dados mais eficiente. Dentre essas estruturas auxiliares desta- 
cam-sc OS indices. 

Um I'ndice i como um I'ndice remissivo de um livro. Quan- 
do queremos achar onde algum assunto est^ descrito em um li- 
vro, nSo precisamos folhear o livro todo — podemos procurar 
no indice. Suponha a seguinte consulta sobre o mesmo banco 
de dados: 
4. Quais empregados estSo no ni've! salarial 100? 



A resposta a esta consulta € mais rdpida se tivermos um indice 
como o que mostramos a seguii (e claro que a vantagem dos 
indices e tanto maior quanto maior for o arquivo sobre o qual 
est5 defmido, o que nffo e' o caso no nosso pequeno exemplo, 
dado apenas para ilustrar a ideia): 



80» 


"\ 








100.^ 


) 






200, \ 


\/ EMP 


salario 






\ 


I 


nome 


lotagao 




1^^ 


Pedro 


100 


fin 


Wv 


Maria 


200 


mat 


N 


Rui 


100 


mat 






^— -• 


Laura 


80 


fin 



As setas deste exemplo conespondem aos endere^os (localiza- 
fSo ffsica) dos registros que centum cada valor de niVel sala- 
rial. Note tambdm que, no fndice, os ni'veis salariais estSo em 
ordem e que assim mostram EMP classificado (indiretamente) 
por nfvel salarial. 



O DESARO DOS MICROS 



At^ h^ algum tempo se pensava que para manipular bancos 
de dados seriam necessdrios equipamentos de grande porte. 
Hoje existem numerosos Sistemas de Gerencia de Bancos de 



Bancos de dados sffo hqje reconheddos como uma das 
aplica90es mais importantes de computadores. S3o 
componentes essenciais de sistemas de informa^So, 
numa e'poca em que a informa^ffo se coloca como 
um dos bens de produ9So. 

Quando uma empresa adota a abordagem de bancos de da- 
dos, automat icamente se compromete a manter um controle 
centralizado da informa^ffo de que dispOe. De ini'cio.a pr6pria 
localiza9ao fi'sica da informa9So € centralizada. GraduaLnente, 
as empresasmaiores tendem a repartir a informa9ffo pelas ^eas 
geogrificas onde exercem suas atividades, passando a uma or- 
ganizafffo de sistemas distribuidos. Mas, mesmo neste caso, o 
controle da informa95o permanece centralizado. 

Para controlar a infomia9ffo, cria-se a fijn9ffo do adminis- 
trador de dados, cujo instrumento fundamental. de trabalho 
sSo OS diciondrios de dados, geralmente ligados aos bancos de 
dados. O administradorde dados deve saber quais informa96es 
sSo disponi'veis e onde se encontram, alem de disciplinar a 
cri^So de novos sistemas de informa9So atraves da empresa. 

advento dos microcomputadores veio criar novas e inte- 
ressantes oportunidades para o uso de bancos de dados, mas 
tamb^m colocou certos problemas. Antes de discutir tais opor- 
tunidades e problemas, vamos rever algumas no90es de bancos 
de dados (o leitor \i familiarizado com o assunto poderd saltar 
a pr6xima se9So). 



ALGUNS CONCEITOS 



Bancos de dados sSo coiijuntos de arquivos interligados de 
algurna forma. O tipo mais simples de "liga9a:o" consiste na 
existencia em dois ou mais arquivos de valores compariveis. 
Considere os dois arquivos abaixo, onde EMP cont^m informa- 
90es sobre empregados e DEP informa90es sobre departamen- 
tos. 
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EMP 

nome salario lotagao 



Pedro 


100 


fin 


Maria 


200 


mat 


Rui 


100 


mat 


Laura 


80 


fin 


DEP 








si 


gla sede 








mat Rio 








f 


in S.P 


• 





Note que as colunas lota9a'o, em EMP, e sigla, em DEP, contem 
valores da mesma natureza (abreviaturas de nomes de depar- 
tamentos). Dizemos que os atributos lota9^o e sigla provem 
do mesmo domi'nio de valores, e sffo portanto compar^veis. 
Considere agora as seguintes consultas a esse banco de dados: 

1. Em'qual departamento Pedro estd lotado? 

2. Qual a sede do departamento financeiro? 

3. Em que cidade Pedro trabalha? 

Observe que as duas primeiras consultas nflb tern nada de 
especial, e podem ser respondidas percorrendo apenas um ar- 
quivo (EMP, para a primeira, e DEP, para a segunda). Ji a ter- 
ceira pergunta i tfpica de bancos de dados. Temos de procurar 
a linha (registro) de EMP em que se encontra Pedro, para des- 
cobrir em que departamento estd lotado, e depois procuramos 
em DEP a linha desse departamento para finalmente desco- 
brir em que cidade estd sediado (entende-se que um empregado 
trabalha na cidade sede de seu departamento). 

MICRO SISTEMAS, feverairo/SB 



ASSISTENCIA TECNICA E 
VENDASDE MICROCOMPUTADORES 



ATARI 

. EPSON 



GRAFIX 



10 FOR I = 1TO20 

20 PRINT "ESTOU EM APUROS 

30 NEXT I 

40 GO TO 10 
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ADMINISTRAQAO DE dados E OS MICROS 



Dados (SGBDs) que rodam em micros. Aos poucos, as dificul- 
dades inerentes aa tamanho da memdria, capacidade de ar- 
mazenamento em mem6ria secundaria, eficiencia dos algo- 
ritmos de acesso, uso compartilhado etc. vSo sendo vencidas. 

A tftulo de ilustrafSo, podemos verificar que hoje em dia ji 
existem microcomputadores com mem<5ria principal com capa- 
cidade da ordem de 700 Xbytes, e ji se estima que, dentro de 
seis meses, os fabricantes brasileiros de microcomputadores es- 
tarffo equipando as suas m^quinas com discos Winchester cuja 
capacidade pode variar de 30 a 70 Mbytes por unidade. Estas 
obseiva9fles nos mostram que atualmente j5 6 viivd pensar no 
desenvolvimento de sistemas aplicativos complexes baseados 
em bancos de dados em microcomputadores. 

A medida que o volume de dados a sei manipulado cresce, 
torna-se mais crftica a eficiencia dos sistemas de gerencia de 
bancos de dados para micros. £ precisamente neste ponto que 
OS sistemas de uso "dome'stico" se distinguem dos sistemas de 
uso pioflssional. No entanto, os micros colocam um problema: 
como seu baixo custo estimula o uso no estilo de computa9ffo 
pessoal, usudrios individuals come^am a criar seus pr6prios 
bancos de dados, dificultando o esquema de controle do admi- 
nistrador de dados. 

Para que ^o esses bancos de dados "pessoals"? As vezes sSo 
realmente do interesse restrito de um usu^o, como listas de 
endere^os, agenda, controle de correspondencia etc. Em outros 
casos sao sum^os, periodicamente atualizados, de grandes 
bancos de dados operacionais da empress. Esses sumirios (ar- 
quivos-resumos) sac usados por individuos de nfvel gerenciai 
para apoio i tomada de decisffo, algumas vezes sendo tratados 
por pacotes estati'sticos e de desenho de gr^ficos. 

Um banco de dados em micro pode estar isolado. Mas tarn- 
bem pode estar em liga^So permanente com outros bancos 
de dados, ou por ser o micro conect^vel como terminal ao 
equipamento principal da empresa, ou por estar ligado com ou- 
tros micros em rede local. Esta ultima modalidade e uma forte 
tendencia no processo de automa^fo de escritdrio. 

A tarefa do administrador de dados se dificulta. A nfo ser 
que ele receba apoio da dire^Sb, ncTo conseguir^ manter contro- 
le (nem mesmo conhecimento) da informa^ffo disponivel na 
empresa. Al^m de exercer esse controle, cabe a ele assessorar 
OS usu^rios que desenvolvem seus bancos de dados em micros, 
OS quais, em geral, nada sabem sobre a abordagem e as tecnicas 
de projeto radonal de bancos de dados (tais como an^se es- 
truturada, modelos de dados etc.). 



QUE ESTA ACONTECENDO 



A tecnologia de bancos de dados para micros conttnua a de- 
senvolver-se, especialmente com o aumento de eficiencia no 
acesso atrav^s de I'ndice (frequentemente usando estnitura de 
irvores balanceadas). Para combinar a eficiencia com a facili- 
dade de uso, sSo adicionadas interfaces amistosas para com o 
usulrio, em estilo fiel ou parecido com o padrSo estabelecido 
peJo modelo relacional . 

Os SGBDs relacionais, como o dBASE II, ganham aceita9a'o 
devido a sua interface humana voltada para o nffo-espedalista 
em processamento de dados. Infelizmente, sua eficiencia pode 
deixar a desejar quando cresce o tamanho dos bancos de da- 
dos. Novos sistemas, como SBD/TS, enfatizam a eficiencia no 
acesso aos dados, utilizando para isso metodos de acesso bas- 
tante avan^ados tais como itvoies balanceadas. O modelo de 
dados do SBD/TS 6 uma versSo generalizada do modelo de 
redes, onde sffo permitidos relacionamentos (interliga^Oes) 1 :1 , 
l:n, n:l e n:m. Este sistema esti mais voltado para o progra- 
mador de aplica90e$ que pode desenvolver os seus programas 
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em uma Unguagem de programa^So de alto nfvel, tal como 
PASCAL ou BASIC, na qual os comandos de manipula^Jo de 
dados cstSo embutidos. Interfaces amistosas para uso por nSo- 
especialistas em processamento de dados serSo desenvolvidas. 

Uma recente publica9a'o fez andiise comparativa dos diver- 
sos SGBDs disponiveis no mercado americano.analisando cer- 
ca de 33 sistemas. Seus pre90s variam desde poucas dezenas de 
d61ares at^ vaiores pnSximos a USS 6,000. Esta varia9S^o ilus- 
tra as diferen9as em complexidade e poder dos pacotes anali- 
sados. 



UMA TENDfiNOA FUTURA 



Desde que o JapSo anunciou seu projeto de 5? gera9So, os 
esforfos na ^rea de Inteligencia Artificial atrairam uma consi- 
der^vel atenqSo. Destacam-^ conceitos complementares: ba- 
ses (ou bancos) de conhecimento e sistemas especialistas. 
Costuma-se dizer que, assim como na liltima de'cada a compu- 
13920 evoluiu do processamento de dados para o processa- 
mento de informa9ffo, agora come9amos a evoluir para o pro- 
cessamento de cor^ecimento. Este ultimo ^ constitui'do de fa- 
tos e de regias gerais que, aplicadas sobre os fatos atraves de al- 
gum mecanismo de Interferencia, produzem novos fatos. 

Um banco de dados convendonal cont^m apenas fatos, en- 
quanto um banco de conhecimentos cont^m tamb^m regras 
gerais. Sistemas especialistas com capaddade inferencial po- 
dem manipular esses bancos de conhecimentos para executar 
tarefas complexas, como o diagn6stico medico. 

Para construir sistemas espedalistas ji sSo disponiveis al- 
gumas linguagens voltadas para micros, como o micro-PRO- 
LOG. Um projeto em andamento na PUC/RJ visa colocar a 
Unguagem SAFO (de escopo mais geral que PROLOG e tarn- 
b^m desenvolvida na PUC/RJ) tamb^m dispom'vel em micro . 
Naturalmente, o problema de efici^nda quando se adiciona 
"inteliggncia" aos bancos de dados se toma mais complexo, 
mas talvez tenhamos aplica90es relativamente grandes imple- 
mentadas sobre micros em fiituro pF6ximo. 
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Linguagem de maquina nao e um bicho de sete 
cabegas. E ajuda voce — e como — a dar mais 
rapidez a seus programas em BASIC. Experimente so. . 



Manipulacao de video 
em Assembler 



uma string com 100 ou 200 caracteres. No case seria necess^- 
rio fazer a impressSo de modo indireto, executando: 



.Mdrio Jose Bittencourt. 



^H Igumas vezes, na tentativa de acelerar seu programa 

M^L em BASIC, voce esbarra nos limites da linguagem e 
^^i^K passa a trabalhar em Assembler. O que talvez voce 
■* ■ nao saiba e como apresentar. no video, dados nessa 
linguagem. Ejustamente para voce que este artigo foi preparado. 

metodo mais simples disponi'vel nos micros com logica 
Sinclair para apresentar um carater no vi'deo e carregar o acu- 
mulador do Z-80 com o codigo do carater e executar a instru- 
930 RST 16. Essa instru^ao equivale em BASIC a PRINT CHRS 
ACUMULADOR, ou seja, imprime o carater desejado. A ope- 
ra^ao, porem, tern uma restrifao: o carrier deve estar no inter- 
valo de a 63 ou de 128 a 191,isto 6, sua representa^ao bina- 
ria deve ter bit 6 ressetado. Essa restri^ao existe porque os 
caracteres fora desses intervalos nao sao usados pelo TK ou en- 
tao sua representa?ao no video ocupa mais de um byte, con- 
forme voce podera observar dando uma olhada no manual. 

fi conveniente que para acompanhar este artigo voce tenha 
em seu micro um programa editor de Assembler, como mo- 
nitor publicado na MS nP 23. ou o Micro Bug. For exemplo, 
para que seu micro escreva a letra M, execute: 



ENDERBJO CONTEQDO MNEMONICO OESCBICAO 



16SU 62-SO LD A. 50 

16S16 21S RST 16 

1«S17 201 RET 



-.dTisqa o carater 
jlmpnme a carater 
:Rctorns 



'H' no acuinuladoc 



O ponto de entrada dessa rotina e das demais que consta- 
rem deste artigo e 16514 e os valores estarao todos em deci- 
mal. 

Se voce quiser que um byte com bit 6 setado seja impresso 
no vi'deo, voce devera carregar o acumulador com esse byte e 
executar CALL 2379. For exemplo, para apresentar a palavra 
REM. execute; 



IfisM 


62-234 


LD A, 2 34 


-.Citteqa o acumulador 


16516 


205-75-9 


CALL 2 379 


! Imprime o carater 


16519 


201 


BET 





(note que 234 -11101010) 

Existe outro metodo de impressao no video e que tem a 
vantagem de ser mais rapido, por^m so € executavel em micros 
com 16 Kb ou mais de RAM. Ele consiste em apontar com o 
par HL uma regiao da mem6ria que 6 usada como buffer do vi- 
deo e entao gravar diretamente ai o carater desejado, desde que 



ele respeite a limitagao imposta pelo bit 6, conforme foi expli- 
cado anteriormente. 

buffer e demarcado pelo conteiido dos endere90s 16396 
e 16397 (DFILE) e se organiza da seguinte forma: um carater 
1 18 indicando ini'cio do buffer, seguido de 24 linhas compos- 
tas de 33 caracteres: 32 utilizados para texto e um codigo 1 18 
encerrandoa linha. 

Essa organiza^ao da ao buffer um total de 793 bytes, dos 
quais 768 sao utilizados para texto e 25 para controle. Para 
que seja impresso desse modo um M inverso. execute: 



16514 


42-12-64 


LD HL,( 16396) 


HL aponta buffer 


16517 


35 


INC HL 


HL aponta a la. coluna d 
1 inha 


1651 a 


54-178 


LD fHLl,17B 


Grava o carater 


16520 


201 


RET 





Contudo, esse metodo nao e aplicdvel em micros com 2 Kb 
porque o buffer, nesie case, se organiza de modo diferenie. 
Por questao de economia de memoria fica reduzido ao codigo 
118. que indica o ini'cio do buffer, seguido de 24 codigos 118, 
indicando o final das linhas. Desse modo. o buffer se expande 
a medida em que o RST 16 vai colocando caracteres. economi- 
zando assim memoria para calculos e outras tarefas. 

Em 2 Kb nosso metodo de impressao simplesmente apagaria 
o codigo 1 18, que indica final da linha 1 e destruiria o progra- 
ma da memoria. 

APRESENTANDO UMA STRING 

Vamos recordar o que significa RST 16. A instru9ao impri- 
me um carater no video de forma similar a um PRINT CHRS 
ACUMULADOR; . ponto e vi'rgula em BASIC significaria pa- 
ra o proximo PRINT imprimir logo apos o ultimo carater im- 
presso. £ exatamente isso que o RST 16 faz, Logo, para escre- 
ver uma string podemos executar: 

Carreqa o acumulador com 'M' 
■A" 



16514 


62-50 


LD A, SO 


16516 


215 


RST 16 


16517 


62-38 


LD A, 38 


15519 


215 


HST 16 


16520 


62-55 


LD A, 55 


16522 


215 


RST 16 


16523 


62-46 


LD A, 46 


16525 


215 


RST 16 


16526 


62-52 


LD A, 52 


16528 


2\^ 


RST 16 


16529 


201 


RET 



16514 


3J-14I 


-64 




LD HL, 16525 


:HL aponta a string 


16517 


6-5 






LD B.5 


:Prepara concador para 5 letras 


16519 


126 






LD A.IHL) 


iLe o carater da string 


16520 


35 






INC HL 


:HL aponta o proximo carater 


16521 


2tS 






RST 16 




16522 


16-251 






DJNZ 


iRepete 5 veiea 


16524 


201 






RET 




16525 


50-38- 


55- 


46 




;Henaaqem 'MARIO' 


16529 


52 











Para facilitar, os micros trazem em sua ROM algumas reti- 
nas que visam facilitar a impressao de uma string. Apontando 
com DE uma string, definindo em BC seu comprimento e exe- 
cutando CALL 2923, a string sera impressa no video. Como 
essa rotina se utiliza da instru9ao RST 16. ela contorna qual- 
quer problema que possa surgir quanto a impressao de um ca- 
rater com bit 6 setado ou ressetado. 

Voce tambdm dispoe em Assembler do comando PRINT AT, 
do BASIC, acessivel do seguinte modo; define-se em B a linha, 
em C a coluna e executa-se CALL 2293, que equivale a PRINT 
AT B, C; . Veja entao como se escreve no meio do video 'ALO 
MAMAE. EU JA SEl ESCREVER EM ASSEMBLER NO TK': 



16514 


1-0-10 


LD 


BC 


,2560 


B=10 c C=0 


16517 


205- 2 4 5- e 


CALL 


2293 


PRINT AT B.C; 


16520 


17-146-64 


LD 


DE 


,16530 


DE aponta a string 


16523 


1-47-0 


LD 


BC 


.47 


BC contem o comprlnento 


16526 


205-107-11 


CALL 


2923 


Inprine a string 


16523 


201 


RET 






16530 


18-49-52-0 








'ALO HAMAE.EU JA SEI ESCREVER 


16534 


50-38-50-38 








BM ASSEMBLER HO TK ' 


I65JS 


42-27-42-58 










16542 


0-47-38-0 










16546 


56-42-46-0 










16550 


42-56-40-55 










16554 


42-59-42-55 










16 558 


0-42-50-0 










16562 


38-56-56-42 










16566 


50-39-49-42 










16570 


55-0-51-52- 










16574 


0-57-48 











Como voce observou, essa rotina nao separa silabas, logo 
voce deveri reformar a string, de modo que a frase surja perfei- 
tamente legivel no video. 

As rotinas de PLOT e UNPLOT tambem sao acessiveis em 
Assembler. Basta colocar em B a abcissa e em c a ordenada do 
ponto a ser plotado (ou unplotado) e executar CALL 2994. 
Para a rotina identificar se a op9ao € PLOT ou UNPLOT, voce 
devera especificar no endere9o 16432 (SXEN) o valor 100 para 
PLOT e 200 para UNPLOT. Para plotar o ponto (21,31), exe- 
cute: 



16514 


33-49-64 


LD HL, 16432 


HL aponta 3XEH 


16517 


54-100 


LD (HLI, 100 


EspecificB PLOT 


16519 


1-31-21 


LD BC,5407 


B"21 e C«31 


16522 


205-178-11 


CALL 2994 


PLOT a,c 


16525 


201 


BET 





Caso voce necessjte, a rotina de CLS est^ no endere9o 2602 
e SCROLL no 3086. cursor que aponta a posi9ao do pr6xi- 
mo RST 16 d mesmo do PRINT para todas as rotinas da 
ROM que manipulem o video. Ele estd guardado nos endere90s 
16398 e 16399 (POSPR). 

Lembre-se que as rotinas utilizadas at^ aqui alteram todos 
OS registradores e por isso 6 conveniente que voce, antes de 
chama-las. salve-as por PUSH se contiverem um dado importan- 
te. para depois restaurd-las por POP. Se o seu TK tem 16 Kb 
ou mais. voce dispSe de algumas outras rotinas de impressao 
que sao mais rapidas do que as descritas anteriormente. 

For analogia ao metodo anterior, podemos escrever uma 
string no buffer do video diretamente, endere9ando os codigos 
seqiiencialmente: 



Isso funciona perfeitamente, mas imagine como escrever 



15414 


33-151 


-64 




LD HL, 16535 


:HL aponta string 


16517 


217-91 


-IJ 


-64 


LD DE, (16196) 




16521 


19 






INC DE 


:DE aponta la. coluna da la. 


1(522 


1-14-0 






LD BC . 1 4 


:BC conten □ cornprim«nto 




126 






LD A,(f<L} 


: Le o caratsr da string 


16526 


IS 






LD (DEI ,A 


:Grava o carater no buffer 


16527 


19 






INC DE 


:Aceits apontador do buffer 


16528 


35 






INC HL 


:Acerta apontador de string 


16529 


11 






DEC BC 


: Decrements contador 


16530 


120 






LD A,B 




16531 


177 






OR C 


;Te9ta Be contador>0 


16532 


12-247 






JR ai.ni 


:Se nao, repete 


16534 


201 






BET 




16535 


50-46- 


10- 


55 






16519 


52-0-56-46- 






16543 


56-57- 


42- 


50 






16547 


38-56 











Por^m, o Z-80 tem uma instru9ao que executa automati- 
camente a transferfincia de um byte apontado por HL para o 
byte apontado por DE e ainda incrementa os apontadores e 
decrementa o contadon LDI. Observe o mesmo programa mo- 
dificado: 



16514 


33-148-64 


LD HL, 16512 


16517 


237-91-12-64 


LD DE, (16396) 


1G521 


19 


INC DE 


IG522 


1-14-0 


LD BC , 1 4 


16525 


237-160 


LDI 


16527 


120 


LD A,B 


16528 


177 


OR C 


16529 


32-250 


JR NZ,250 


16531 


201 


RET 


16532 


50-46-40-55 




16536 


52-0-56-46- 




16540 


56-57-42-50 




16544 


38-56- 





Nosso programa pode ser simplificado ainda mais se lem- 
brarmos que o Z-80 tambem tem a instru9ao LDIR, que exe- 
cuta um LDI e o repete at^ BC = 0. Veja agora como ficou o 
nosso programa: 



16514 


33-144-64 


LD HL, 16528 


16517 


237-91-12-64 


LD DE.( 163961 


16521 


19 


INC DE 


16522 


1-14-0 


LD BC , 1 4 


16525 


237-176 


LDIR 


16527 


201 


RET 


16528 


50-46-40-55 




165 32 


52-0-56-46- 




16536 


56-57-42-50 




16540 


38-56 





Nem o LD, nem o LDI, nem o LDIR respeitam o 118 que 
indica o fmal de uma linha no buffer do vfdeo. Logo, se seu 
texto a ser impresso tiver mais de 32 caracteres. ele devera ser 
dividido em linhas de 32 caracteres. separando-as com um c6- 
digo 118, para que o buffer naosealtere. Para escrever, por exem- 
plo: 'MEU TK E UM MICROCOMPUTADOR PESSOAL'. que 
e uma string com 35 caracteres, divida-a em 'MEU TK E UM 
MICROCOMPUTADOR PESS'+U8+'0AL'. Porem. para nao 
contrariar sua professora de Portugues. reagrupe em 'MEU TK 
E UM MICROCOMPUTADOR PES-'+U8+'S0AL'. 

Note que agora sua string tem 37 caracteres, caso contrario 
seu programa nao funcionaria. buffer pode conter ate 768 
caracteres. Nao exceda essa quantidade ou voce provocarium 
erro irreparavel em seu programa. 

Vamos dar agora um exemplo de como mostrar um numero 
no vi'deo. ou seja, vamos transforma-lo em uma string decimal 
e mostri-la por RST 16. Voce, como exercfcio, poderd refor- 
mar o programa de modo que a impressao seja feita diretamen- 
te no buffer. 



16514 


62-5 


LD A, 5 


:Contador para 5 algansrnoB 


16516 


245 


PUSH AF 


:Salva contador 


16517 


229 


PUSH HL 


:SBlva numero 


16518 


33-1-0 


LD HL.L 


iCalcula o divisor 


16521 


61 


□ EC A 




16522 


40-8 


JR Z.B 




16524 


41 


ADD HL.HL 




16525 


84 


LD D,H 




16526 


93 


LD E,L 




16527 


41 


ADD HL.HL 




16528 


41 


ADD HL.HL 




16529 


25 


ADD HL.DE 




16530 


24-245 


JR 245 




16532 


235 


EX DE.HL 


iColoca divisor em DE 


16533 


225 


POP HL 


iRestaura o niimero 


16534 


62-27 


LD A, 27 


:Prepara quocionte 


16536 


60 


INC A 


iDividc HL por DE 


16537 


217-82 


SBC HL.DE 




16539 


4B-451 


JR NC,251 




16541 


25 


ADD HL.DE 


:HL>reBto e acujn.iquociente 


16542 


215 


RST 16 


:Hostrs o algarisno 


16541 


241 


POP AF 


1 Res ta lira contador 


16544 


61 


DEC A 




16545 


32-225 


JR HZ. 225 


: Repete 5 veies 


16547 


201 


RET 





Esse programa apresenta HL no vfdeo em cinco algaiismos 
decimals, mas voce pode fundir a cuca um pouquinho e am- 
pliar a rotina para que ela nSo imprima os zeros a esquerda do 
algarismo. m, 



Mirio Jos4 Bittencourt tem 16 anos, faz o 39 ano coleglal na Etcola Eg- 
tadual de Segundo Grau Protestor Jos4 Sant'Ana de Castro, em Cruzei- 
ro, SP, e pretende iniciar o curso de Procetsamento da Dados em uma 
Faculdade no pr6ximo ano. 
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TRS-80 TRS-80 TRS-80 TRS-8 



SINTA NOSDEDOS ESTA CONQUISTA 

DIGIPLEX 






Fuja . . . enquanto e tempo! 

Sergio Orioli Parreiras 



Saiia^i<iiti.,l.,->- 



Este jogo foi desenvolvido para 
computadores da linha TRS-80 
e com ele voce poderd testar 
como andam seus reflexos e sua 
coordena^ffo motora. 
Funciona da segumte maneira: voce 
controla um trago e o computador 
outro, sendo que o seu tra9o nSo poderi 
se chocar consigo mesmo, nem com o 
do computador e nem com as barras de 
limite. Se voce conseguir desvii-lo aW 
t^rmino do tempo, ganha o jogo. 

Voce pode escolher entre dois ni'veis 
(fdcil e avan9ado). Para movimentar 
seu trago use as teclas (Q) para subir, 
(A) para baixar, ( < ) para a esquerda e 
( > ) para a direita. 

Observa9So: para eventuais 
adapta9Ces, sugerimos a leitura do 
artigo BASIC, tres faces da mesma 
linguagem. de Orson Voerckel GalvSo, 
publicado em MICRO SISTEMAS 
numeros 19e 20. 



Sergio Orioli Parreiras tern 13 anos, cursa a s4- 
tima s6rie do primeiro grau e tern um OCT- 
100 desde agosto de 1983. 



Fuga 



1 ' -:-fuga-i- Programa de Serg 
Jo Orioli Parreiras 

Rio de Janeiro, 23 de Jancir 
o de 1984 

5 CLSi IF C%sO THEN 130 ELSE PRI 
NTai60,"fuga"sa224,STRING*(4,191 
) ;ffl34B,"eBCOlha o n i vei = '';a404, " 
1) FACIl ";a470,"21 AyANCAOO";! X 
Z=RND<127): YX=RND(3Qi! ZX=RND(1 
?7): BX=RNDC35> 

10 A1=1NKEY»J IF Ai» '" THEN 10 E 
LSE IF fi,%<>"i" AND AS<>"3" THEN 
10 ELSE LX=yAL<A*> 
15 yX=500/LX! CLS! FOR 11=0 TO 1 
27: SETfIX,Oi: 5FT(Ii,40): NEXT: 
FOR IX=0 TO 40: SET i 0,1%): SET( 
iZ7,l7.)t NEXTt PRINTaS'?*, 'TEMPOS 

20 At=INKEYti IF ATi=-'fl-' OH AS="q 
" THEN F%=2 El SE IF A*='-A" OR At 
= "a" THEN FX=i EL(>F IF Af.="," TH 



EN FX=3 ELSE IF AS="." THEN FX= 
4 

25 ON F% GOTO 30,35,40,45 
30 YX=Y%+i! GOTO 50 
35 YZ=yZ-li GOTO 50 
40 XX=XX-ia GOTO 50 
45 XX=XX*1 

50 IF POINT (XX,YXJ="1 THEN CLSi 
PRINTa329,CHH%<?3) -"VOCE BATEU 
!l"t GOTO ISO ELSE SET<XZ,YX) 
55 AX=RND<2): ON AX GOTO 60.65 



60 IF XX>ZX THEN 70 ELSE 80 

65 IF YXlflX THEN 90 ELSE 100 

70 ZX=2^+LX: IF ZX>127 THEN ZX^l 

27 

75 GOTO 105 

80 2X=ZX-LX: IF ZX<0 THEN ZX=0 

85 noTo inr, 

90 8X=BX+1: IF BX>47 THEN BX=47 

95 GOTO 105 

100 BX=BX-t: IF 8X<0 THEN BZ=0 

105 VX-^iJX-i: PRINTa903, ;lJSING"«tt 

tl";UX: 11- V-i=i) THEN 115 ELSE IF 

ZX=XZ AND BX=YX THEN CLS! PRINTS 

394,CHRI.i23);". ..yOCE PEfiDEU..." 

1 noTO 120 

liO 5ETiZX,B";)! GOTO 20 

115 FOR 1X=1 TO 3000! NEXTi A4=I 

NKFYi: r.LS! PR INTa4A0, CHRt ( 23> i" 

VOCE GANHOUIM"! GOTO 125 

120 PRINT TAB(a)"TENTE OUTRA VEZ 

125 Al=lNKEYSJ IF Al="" THEN 125 

ELSE GOTO 5 
130 C/:=l! CL'Si PRINTai53,"fu3a"f 
3259. "Use:", 3392, "(q) PARA SUBXR 
"(3456, "(a> PARA BAIXAR";a520, "( 
>) PARA A DIREITA"fa5R4."(< > PAR 
A A ESQUERDA";a7i5," VOCE GANHA 
JOGO QUANDO TEMPO ACABAR"! F 
OR lZ=0 TO 127! SET(IX,4)J SETd 
X,iO>i SET<IX,i5) 

135 SET(IX,36): SET<IZ,32)! NEXT 
! FOR 1X=>4 TO 35! SET<0,IX>! SET 
(127, IX>! NEXT 
140 Al=INKEYt! IF A%="" THEN 140 

ELSE GOTO 5 



Estrutura do programa 



Linhas 

• 5 - 10 ~ Valor das vamveis;escolha de ni'veis; pen'metio da tela. 

• 20 - Entrada de movinieiitos do jogador. 

• 25 - 45 - Retina de movimentos do jogador. 

• 50 - Veririca se o tra9o do jogador se chocou contra ele mesmo; 
case negativo, seta o movimento do jogadoi na tela. 

• 55 - 100 - Rotina de movimento do computador. 

• 105 - Decrementa o tempo e testa o choque do tra?o do jogador 
com o do computador. 

• 1 10 - Seta o movimento do computador na tela, 

• 1 15 - Mensagem do vencedor. 

• 1 20 - Mensagem do peidedor. 

• 1 25 - QualQuer tecia piessionada produz um novo jogo. 

• 130- 140 - Instiu(5es. Observa^ioralinha 130ultiapassa OS 



255 caiacteres que uma linha pode tei, portanto, para intioduzi-la, 
proceda da seguinte forma; entre com a linha 130 ate os dois 
pontes; tecle RETURN ou ENTER, dependendo do equipamento; 
tecle EDIT 130;pTessioneXe va intioduzindo alinhanormalmente. 

VarUiveis 

• V% - Variavel de tempo. 

• X% - Y% - Coordenadas do seu ponto na tela. 

• Z% — B% - Coordenadas do ponto do computador na tela. 

• 1% - Variavel de loop. 

• AS - Variivel de entrada de movimento do jogador. 

• F% - Numero da rotina de movimento do jogador. i 

• A% - Numero da rotina de movimento do computador. I 




iZist OJXLJJ. I I 



Given. liO reH03n 332 0300 
X.000-8vlOHoi,ionre ftl«ta3I-335l 
Rua Bvala BiOem. 391 s! 404 
Tal.ieatlX72960 R'OdeJane:m 
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Para pequenas e medias empresas, a DIGITUS langa o DIGIPLEX. Um modulo capaz de former uma rede local de 
multi-usu^rios, que alem de proporcionar o dinamismo de um CPD tambem simplificara o gerenciamento de sua 

Com varies terminals executando programas especificos, a implantagao do DIGIPLEX proporcionara a sua em- 
presaum aumentoda produtividade e qualidade, i^ que a interligagSo on linedos terminals permitira que se 
trabaihe com dados e informagoes atuatizadas. 

Ligados ao DIGIPLEX poderao estar ate 16 terminals intetigentes, fazendo a contabilidade, controle de estoque, 
vendas e produgSo, malas diretas, estatisticas ou seja, atendendo a todas as necessidades de sua empresa. 

Rnandidw<s:AriM|d (079) 224. 7776 223 131DBaiOTwl (011 H2^52lTBtismi (061) 242 6344 248.^59 373 ?I28 229 4S»B«Hin (091 1 225 4000 B«loHorl»nM{D3M B506 

225.330^ 225 623^ Campinas !0i^?< 3? &3;?2 CuriDDi i04i] ?32 '750 7')3 W2I Drvtndpolis i037i 721 gsOO Forlalaia iOS5) 227 5878 224 d235 224 3923 224 4E91 ZS.4922 FMllMl (0482) 23 i03ijFozM 
ltliacil|0455)72 l4;6Gollniai062i^23 ne^ Jd3o PsssoaiOSSi 221 6743 JulidaFaf)|032j 2i3 2494 Li)n(tFmai0432) 23 7tiOHicMI (082) 223 3979 M«nuiCttM^^^aHiM|gU^U 710 2 ''80 Novo 
HMnburge (051) 293 1024 Ouro Preta i03i) 55i 3013 POfOi M MdH(03M 7Z}mS Ptrlo «•«» (0^12) 26.1988 334 0660 21 4169 25.000? 26 1900HKiti|IWrr!^^lf^S^l^Kffle9 Rlbtiiio Ptab 
1016) 636 0586 Rto de JMsIrs (021) 252 9420 262.2661 2Ba.00;@.auaUWiUfi:^>49 26S.7480»1.82^^8B,Z6S0 33.9395. 2&7.4»8.222.4S15 263 1241 295 8194 247.7842 322 1960 316.4966 
2 SMidBr (071) 242.9394 241 6189 SMta ''milSm£mKU^^KMtitM\IIISi^ ^"^^ t01S2> 32.9807 WUrti (027) 223.5147 



Sinclair Sinclair Sinclair sine 



Algarismos romanos 



Antonio Sa Fernandes Palmeira 



Os antigos romanos tinham uma forma toda especial de re- 
presentar os numeros e, ao que tudo indica, sua matemdtica 
era bastante elementar, pois desconheciam o zero. Nao existe 
uma utilidade matemitica para essa forma de representa9ao, 
no entanto, os algarismos romanos sSo muito usados como al- 
temativa para fms de numera9§o de p^ginas, capftulos, etc., 
e na escola prim^ria o seu ensino 6 obrigat6rio. Assim, este 
programa foi elaborado para micros da linha Sinclair com o 
objetivo de auxiliar o aprendizado desses algarismos. 

programa 6 composto de dois m6dulos: Aribicos ->■ Ro- 
manos e Romanos -> Ardbicos. No primeiro m6dulo, o pro- 
grama solicita um niimero em algarismos aribicos e fomece 
sua representa93o em romanos. O niimero deverii ser inteiro, 
pois nao hi fra95es em algarismos romanos, e menor que 3999, 
ji que a representa9So em romanos de numeros a partir de 
4000 6 feita com um trafo em cima indicando que o niimero 
deve ser multiplicado por mil. Este detalhe nSo foi implemen- 
tado no programa. No segimdo bloco, o usuario dever^ fome- 
cer um niimero em romanos, a seguir, o programa testar^ a va- 
lidade desse dado, pelas regras dos algarismos romanos, indi- 
cando como ERRADO, caso haja qualquer erro de sintaxe, do 
contririo fornecera o niimero em aribico correspondente. 

Desse modo, se o usuario pressionar a tecla R, o R da pala- 
vra ROMANOS da tela inicial ficari inverso, indicando que o 
programa encontra-se no modo ROMANOS. Se digitarmos IL, 
querendo representar o numero 49, o programa indicard ER- 
RADO e pedird OUTRO? (S/N), sendo que a resposta N fard 
com que se volte ao menu de opfSes. Teclando A, da palavra 
Ardbicos, o programa pediii este modo de algarismos. Assim, 
se digitarmos 49 seii indicada a resposta correta: XLDC. 

A rotina de Ardbicos para Romanos, propositadamente co- 
locada numa sub-rotina (linha 1000), 6 facilmente transporta- 
da para outras 16gicas e poderi ser titil para numerar pdginas de 
um relatbrio, por exemplo. Para sua utiliza9ao, o numero em 
ardbicos entrard na cadeia N$, enquanto os romanos ser3o for- 
necidos em R$. A linha 1080 poderd ser traduzida para outras 
16gicas, como uma instru9ao ON...GOSUB. Experimente fazer: 

50tiiZiBF'OK Z = i TO 3999 
5010 L£T N$=:5TR$ Z 
502S GOSUe 1000 
5030 PRINT AT 0,0;- 



5040 PRI^4T Pi' 
50S0 HEXr Z 



, .; R$ 



Comandando RUN 5000, aparecerdimpresso, no canto supe- 
rior esquerdo do video, um contador em algarismos romanos. Na 
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eiabara93o do programa, nSb houve uma preocupa93o com 
uma possivel economia de mem6ria, mas poderi ser estudada 
uma otimiza9ao com bons resultados. 



10 CLS 

£0 PRINT "CPiLCULUS INFORMfiTICP 
LTDH"."5fiO LUI5-Mfl" 
30 PRINT ■■'■- 

40 PRINT ■■ALGPRISMOS ROMPNOS-' 
50 PRINT PT 7,0;"TECLE :".;PT 9 

, ; ■■' tP) RPEIC05 < -- > i.9.) 0MPN05" : P 

T 11 .0; ■' LP.' INPLIZhR" 

50 IF INKEY5='R" THEN GOTO 150 



70 IF INKE-.'$ = '-F" THEN STOP 

S0 IF INK^,'"$< >"fl" THEN GOTO 60 

S5 PRINT PT 9,1: "E" 

90 PRINT PT 11,0.; ••__ < 

150 PRINT RT 21,0; ■■PRRBICOS 

160 INPUT Nj. 

170 PRINT PT 11,0; N$ 

130 FOR N=l TO LEN N$ 

190 IF NS(N:'i="9" hnd n$i:n:i> = ''0 

" THEN GOTO £20 

200 PRINT PT ll,16;"NflO E PRPBI 
CO" 

202 LET P$ = ^'- 

210 GOTO £50 

220 NEXT N 

230 IF URL N$<4000 THEN GOTO 26 



240 PRINT PT 1+ , 16,; '■NUMERO > 39 
99" 

250 GOTO 250 

250 G05UB 1000 

270 PRINT hT 11.16;R$ 

2S0 PRINT PT 21,0; "OUTRO ■? tS./N 

" 290 LET CS=INKE¥$ 

330 IF C$="N" THEN RUN 

310 IF 0$<y'5" THEN GOTO 290 

320 GOTO 90 

856 PRINT PT 9:1; "S" 

1000 REM HKHB.IC05 — •> ROMRNOS 

1020 LET P$="" 

1030 REM LOOP NH CflDEIP DE PRPBI 
C 5 

1040 FOR I=LEN N$ TO 1 STEP -1 

1050 LET H=UPL N$ (I) 
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1030 GOSUB 1130 + 40* i.LEN N$-Ii 

1090 G05UB 1300 

1100 NEXT I 

1120 RETURN 

1130 LET P$="I" 

1140 LET B5 = -'y" 

1150 LET C$="X" 

1150 RETURN 

1170 LET H$="X" 

1150 LET B$ = ^'L" 

1190 LET 0$="C- 

1200 RETURN 

1210 l_ET H$ = "C" 

1220 LET E$ = "D"- 

1230 LET C4="M" 

1240 RETURN 

1250 LET RS="M" 

1260 LET B$="" 

1270 LET C|="" 

1250 RETURN 

1300 REM * FOPMPCRO DP CPDEIP * 

1310 REM *DE PLGPRI5M05 ROMPNOS* 

1320 IF P=i THEN LET R$=P$+R$ 

1330 IF H=2 THEN LET P$=H$-fP$-<-R5 

1340 IF H=3 THEN LET R$=H$+P$-^H$ 

+ P$ 

1350 IF H=+ THEN LET P$=H$+B$+R$ 

1360 I^ H=5 THEN LET R$=B$+R$ 

1370 IF R=:6 THEN LET R$=B$+HS+R$ 

1330 IF P=7 THEN LET R$=B$+P$+H$ 

4-R$ 

1390 IF H=6 THEN LET P$=B$+P$+P$ 

1400 I:= 'P=9 THEN LET R$=P$+C$+PS 

1410 RETURN 

1500 REM ROMhNOS --> PRhBICOS 

1505 PRINT PT 5,17, "B" 

1510 PRINT PT 11,0; ■' 

1520 PRINT PT 21,0; -ROMhNOS 

1530 INPUT PS 

1500 PRINT PT 11.16;R$ 

2010 LET NC=0 

2020 i-ET P5='" 

h030 let P=0 

2100 REM LOOP NP CPDEIP DE ROMPN 

ns 

2110 FOR I=LFN P$ TO 1 STEP -1 

2120 LET C5=R$!:i' 

2130 IF C$<;"I' THEN GOTO 2190 



£150 



Hi = "L" OR P$=-"C" OR P$ = " 



v LiK P$ = "M'' THEN GOTO 2600 

2160 LET C=l 

2170 IF H$ = ''U'' OR P$ = "X" THEN LE 

T C=-l_ 

2160 GuTl =:4!r-0 

2190 IF C$<>"U' THEN GOTO 2230 

2200 IF P$<>"" THEN IF PS-: ::•"!" T 

HEN GOTO 2500 

2210 LET_C=5 

2220 GOTu 2450 

2230 IF C$-.::-"X"' THEN GOTO 2290 

2250 IF R$ = "M^' OR P$ = "D" THEN GO 

TO 2600 

2250 LCT C=10 

2h70 if P$ = "i_'' 

T C=-10 

2230 GOTO 2450 

2290 IF 0$ < ? "L' 



OR P$="C" THEN LE 



THEN GOTO 2330 

>"I" T' 
■■■■x" T 



2300 IF H$<>"" THEN IF P$ 

HEN IF P$<>"U" THEN IF P$ 

HEN GOTO 2600 

2310 LET C=50 

2320 GOTO 2450 

2330 IF 0$ < >"C 

2350 LET 0^100 

2360 IF H$ = ^'D" OR P$ = "M" THEN LE 

T C=-i00 



THEN GOTO 2350 



2370 GuTO 2i^.0 

2380 IF C$<>'D' THEN GOTO 2420 

2390 IF H$="D" OR P$="M" THEN GO 

TO 2500 

2400 LET 0=500 

;:^410 GOTO £4^.0 

2420 IF C$::>"M^^ THEN GOTO 2500 

2440 LET 0=1000 

2450 IF C<0 THEN IF R > =ftB5 (B+C^ 
-C -THEN IF PS = "U" OR P$ = "L" OR P 
$="D" THEN GOTO 2600 

2451 IF !;C5 = "U" OP C$ = "L" OR 05 = 
"D"!! PND P=C-C/5 THEN GOTO 2600 
2453 IF C<0 THEN IF h > =PB5 (10*C 
) -C THEN IF H$='X" OR P$="C" OP 
P$="H" THEN GOTO 2600 



24i 



IF C>0 THEN IF C$=P5 THEN I 
:500 



F H>3*C THEN GOTO 

2455 LET H=H-!-C 

2450 LET NC=NC->-l 

2430 LET N0=1 

2455 IF NC=d- THEN GOTO 2500 

2490 LET P$=0$ 

2500 NEXT I 

2510 PRINT PT 11 ,0; P 

5520 PRINT PT 21.0; "OUTRO? iS/H) 



2530 LET C$=INKEy$ 

2540 IF C$="N" THEN PUN 

2550 IF C$-:>"5" THEN GOTO 2^ 

2560 GOT'i 1F00 

2600 PRINT PT 11 ,0; "ERRPDO" 

2610 GOTO 2520 

3000 5 P *v' t " K H P N 5 ' ■ 

3010 RUN 
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Algarismos Romanos 
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SOFTWARE 




novas tUas com 
emockmcmtKpcaxxvoci! 



PAHA EQUTPAMEWTOS COM L6CtCA SENCLAtn 



l.VALKIRIE 




I. MERCATJOR DOS 

SETE 

MARES 



3. SUBESFAQO 




CORRIDA MALUCA • PINBAU 
lE.rluii.idwJe Citnirn. porDinn 
C B UiHo) 



S. HOT I - PLUS 

• £ o a 



OBERI 
(EicJuiividofi* 
Ctbvm* 

pofDivLr>oCR L«i,aD 
ASS ALTO 



^4fKa IhhriLtgi 
OKMl it u«5 

Tplatnwnlw prr 

• MEBGE 

ciMMma. uT.. *oi ouFrot 



^ 



PARA EQUIP AMENTOS COM l6cICA TUS BO 



i.snnnju>oRDEv6o 

ToUimcnu 

accnjpqr.Fiqdo 
do Jiv.c d> 

jiMTij^O^ com 
dLAqfamai 
labaidi "'••: 
£ma,. 
PINTOR 
MALUCVi e 
ODESAFIOOA 
GALINHA 




2. XADREZ 

Orwii 



FATHULHA 
ARMADA 

• pAnico 




Cfi Uitta) . COMSOIQ 
ESPACIAL 



S.AFUCI 

• COMP CALC 

RdpKkt Hic]«rl« V rotoim«n!v am 
cAd;^<toR,dquin4 A melhor rtnto 
doitlimoKViii'Cali: 

• COHP ARO 

program* gvrador d* arquivof 
Totfllrnvnte *in cfidiqo de mtauinA 
Mc4cl* llchu • a> acHW pals 
rampoquvguiHr 

• COMP TEXTO 

Dafdcil mdnrpuiov^ lOlalmrnTvpni 
cAdiqD de ma^uina 

^*^»r^T — _^ 
I ^^^ 

t. -■: "■ ■.' , . ^'""iTBn 



trs-80 trs-80 trs-80 trs-8 



Super tela 



Luis Carlos Moreno 



O progratna aprcseniado tieste artigo foi elaborado a partir 
de pingrainas yd cxislcntei em micros da linha Apple, Trata-se 
de urn prugrama relativo j comrok de leia, onde a caracteri'sti- 
ca pnncipal e o chamado (;oet'icieiUc angular de uma reta(M), 
conhecido em geoinetria anaii'tica. A partir deste, limitou-se 
uma area a qua] deve ser formada. no mi'nimo. por tres pontes 
nao colineares. O funcionanicnto do programa baseia-se na mo- 
vimeniat^ao do cursor feiia peio metodo normal, ou seja, com 
o uso do enderei^o 14420 consegue-se uma movimenta9ao am- 
pla do cursor e o uso de 4 tecias. a saber: "1", "2". "ENTER", 
■'ESPACO"(b). 

Os tres pontos para defiiiii^ao da area sac dados pelas letras 
"A", "B" e "C". na seqiiencia. As lecias tern as seguintes ca- 
raclensticas: "1" - posiciona o primeiro ponto da reta, ou se- 
ja. e o primeiro ponto guardado e fixado na tela, que desenlia- 
ra a reia; "2" - posiciona o segundo ponto da reta e tra^a a re- 
ta entre o primeiro ponto e este; "A" - armazena o primeiro 
ponto da regiao a ser pintada; "B" - armazena o segundo pon- 
to da regiSo a ser pintada; "C" - armazena o terceiro ponto a 
ser pintado e. logo em seguida, pinta a regiao definida pelos 




Figura 1 



pontos; "ESPA^O" (b) — hi uma inversSo no sistema, ao in- 
ves de ser colocado um comando SET. coloca-se um comando 
RESET e o processo se fara da mesma forma, "ENTER" - vol- 
ta a posi?ao original, isto 6. usa-se o comando SET. 

METODO USADO NA PROGRAMA(;aO 

Para a reta foi usado o sistema normal de uma equagao de 
reta, onde determinou-se a equai;ao a partir dos pontos obtidos 
em "1" e "2". A unicadifereni^ae ocoiitorno - elaborado quan- 
to a descontinuidade da tela. Para isso formaram-se duas regioes 
distintas com seus respectivos coeficientes angulares (figura 1 ). 

Para pintar a area foram determinados os valores XA. XE, 
YA. YE caracten'sticos dos tres pontos ".A". "B" c "C" obti- 
dos pelas coordenadas (X.Y). determinando-se os coeficientes 
relatives as tres retas Mab, Wbc e Mca. Foi fixado um ponto 
XE e variou-se outro ponto desde YE a YA. determinando-se. 
entao. o coeficiente angular M'. Comparou-se M' com os coefi- 
cientes Mab e Mca de modo a preencher a area pre-eslabeleci- 
da, perceba que a varia^ao foi entre XE - XB. Para a regiao 
contida entre XB e XA usa-se o mesmo nietodo. porem deve- 
mos fixar XA. determinando-se M' e comparando-se com Mbc 
e Mca. (Figura 2) 

Devemos observar que o programa nao limita-se apenas ao 
que foi demonstrado, podendo incluir casos particulares como 
XB= XE,XB = XA etc. Observe que A = (XA,YA}: B = (XB, 
YB)e C = (XC,YC). 



Luis Cartas Moreno est4 cursando o 59 ano de engenharia el^trica na Es- 
cola de Engenharia Mau6, em Sao Paulo. 




5 ■ ■•••■ SUPER TELA •■••• 

7 * LUIS CARLOS MOfiENO 

El ' SHO PAULO - CAP[TAL - 19/7/1994 

10 CITAft 200 

20 DIM ACS) 

'JO OH ERROR OOTO QOOO 

f.n CLS!SD = niDL''<*7:GOT0 20D0 

100 ■ EOUACAO DA HFTfl 

1?B IF XI-X2, ?S0 

130 t1=(rj-Y2)/(X2-Xl)tM-ABS(M> 

I3S IF M>.5 ,250 ELSE 140 

l«tl IF X1-JC2 < 0,T = XliH=X2!G0T0 150 El SE T=X2!H"X1 

ISO FOR fi=T TO ABB(H) 

IfiO VC=( X2«Tl-Xl»r2)-G«(yi-Y2)trC=yC/(X2-Xl) 

170 IF ro=n,<;ET<G,rc> els€ resekg.yo 
lan NE>ir g 

.100 GOTO 4B0 

250 IF Tl<T2,T=Yl:G-r2 ELSE IF Vl>rZ ,T-Y2iB"Yl ELBE T-YUC=Y2 

TAO FOR 0"! TO G 

270 X(X>:2»Yl-Xl«Y2)-0"lX3-XntXC-)([:/(ri-Y2> 

?0O IF rO'O, SET<XC,0> ELSE HESET(XC,0> 

290 NEXT O 

400 ' COLOCACAO DOS PONTOS NA TELA 

490 SETiSD.OL • 

4ef, PRINTa47,"P2("iaS5,","|B60.")"[ 

490 K=PFEKn4420) 

■195 PRINT350, 50(356,47-011 

■".00 IF K=n L = -1:R0SUB 7n0iG0T0 490 

SIO ir K=1A L = iiGOSIIB 7nO:riOTO 490 

520 IF K=32 S^-ltGOSUB 900:GOTO 490 

"S30 IF K = 64 S-UGOSUe 9O0iGaT0 490 

535 IF K-I2fl,ft000 

537 ir K=2,360D 

53R IF K=4,3600 

'.lU M-THKFYtslF At="A",BOSUB 7000 

^■in IF Al = "8",nOB(IH 7100 

'Ml II lit-' i;- ,L,o;i(iB 'joo 

"iTO IF K = l ,CO=D 

^.80 OOTO 49Q 

700 DL=OL+L!IF 0L<4 ,DL=i47 ELSE IF DL)47 , DL=4ELSE IF C0=2,350n E 

USE 3U0Q 

900 SO = SD*S!lF SD(0,St)»I27 ELSE IF SD> 127 , SD'^0:PR INTflSl , " " j 

FLSC IF C0=2,35(1DELSE 3000 

1000 GOTO 490 

;m0n CLSiFOR I=0 to 127iGET(I,3HNEXT 

20in GOTO 490 

3000 IF POiNTfSD.DL) 3S50 

3500 RirSET(U,OJ!U=ED»0=DLiSET(SD,OL)lRETUHN 

3S5D RESET! II. 0>:SET(SD,m-l : 11=1 27 1 0=0: RETURN 

3A0O IF K»2,SET(SD,Dl )5X(=SDiYl»RLMJ=127>0=0tPRINTa6," "181, "P 



l<"|Xl,aB,"/',47-Yl.S13,")"t!GOT0 490 

3700 IF K=4,X2"SD5Y2=DL SGOTO 128 ELSE 490 

iOOO CO=2ipOT0 490 

7000 Pll !-SDiQ(l )=DLiPOKE 15390, 253tRETUfiN 

7100 P(2)>=i;Di<J<2)cDL:P0KE 15391 , 253iRETURN 

7300 Pt3)=S0!Q<3f=DL-.P0KE 15392,253 

7300 FOR 1=1 TO 2 

735D IF PlDOO OR S<1K>0,740D 

7300 NEXTiGOTO 779S 

7400 XE=P'l >:XA=P< 1 > I YE=Q< 1 ) : YA=Q( I ) 

7450 FOR 1=1 TO 3 

7500 IF P(I><'^XE,XE=P(1 JiAl3> = I 

7550 IF P(I) ) = XA.XA-'P< I) tA<2) = I 

7580 !F QCl )<YE.YE=a(I) 

7590 IF fi(I)>YA,YA-8(I) 

7600 NEXT 

7410 FOR 1=1 TO 3 

7620 IF A(3)=I OR A(2)=I,7630 ELSE AtSl-I 

7630 NFXT I 

7632 H(4)=HS(A<2))-Q(A<3)))/<P<Al2)>-PCA(3))) 

7633 IF P(A(5))>=P*A(2I i,H = 12SG0T0 7640 

7634 M<21=(Q(A(21)-ll(A<5)))/(PtA(2))-P(AtS))) 
763'. IF P<A(5) >^P(A(3i >,7735 

7640 M(31=<9(A(5))-0(A(3)))/(PCA(5))-P(A(3))) 

/6HD IF M(4)<tt<3>.l1A=MI3>iME=rt(4) El BE flA=m4) sME-Hl 3» 

7700 FOK ]=XE»1 10 PiAiSI) 

7710 FOR J=YEH TO YA 

7715 N'-C.l a(A!3)))/l I-P(A(3))) 

7720 IF Nl-'HE OR N>>MA,77aO ELSE IF C0"2,772B 

7725 J;n<T, JCGOTO 7730 

7728 HEBETd, J) 

7730 NEXT J , I 

773? IF R=12,R=0:G0T0 7795 

7735 IF «(4>(M(2),ME=Ht4lil1A"Ht2) ELSE ME=M<2 HMA«=M( 4 ) 

7740 FOR I=P(A(5H TO XA-1 

7750 FOR J = Yen TO YA 

7760 N=(J-G(A(2)>>/(I-P(A(2>>> 

7770 IF NC^flF OR N>'-MA,7790 ELGE IF t0''2,77fl5 

7700 SETd.JUGOTO 7790 

7705 RESKT<I,J) 

7790 NEXT J, I 

7795 PR1NT830," "( 

7600 FOR I-=S TO 3 

70iO PI I>=0 

7820 Qa)=0 

7830 NEXT 

7B40 GOTO 490 

8000 PR INTflr4, -MESMO PONTO ' 
-; 1 RESUME 490 



l"i:FOH 1 = 1 TO 3nO:NEXT:PKlNril^'4 



Super tela 



NUNCAETARDEPARALER 

/Micro 




Se voce 

nao adquiriu 

MICRO 

StSTEMAS 

na data certa, 

nos the damos 

uma segunda 

chance! 



> Seu pedido pode ser feito 

por carta, indicando 

quais os numeros 

atrasados que voc€ quer. 




• Acrescente a este um cheque 

cnjzado, nominal a ATI 

Editora Ltda., no valor 

correspondente ao seu 

pedido. 



• E nao se esquepa de incluir 

o seu endere^o para 

que n6s possamos 

fazer a remessa. 



MTU 



RuaOliveiroDiaj, IS3 — Jordim Paulislo — S&o PouId/SP 
— CEP01433 — T«l».. (011)853-3800, 853- 7758 BSei-5668. 

Av. Pmid«nle Wilson \b5 — grupo 1310 — Canlro — Rio 
de Jtif>Biro/RJ — CEP 20030 — Tols.: (031} 361-5359. 362- 
&437«3&I-&306. 



AGORA t MAIS FACIL ASSINAR 



^iorcomodidade. 



/Micro 






de»B"« 



rtprt*" — RIO DE JANEIRO 

ATI Editora Ltda. 
Av. Presidente Wilson. 165 - GR. 1210 
CEP 20030 - Tels.: (0211 262-5259 

SAO PAULO 
ATI Editora Ltda. 
Rua Oliveira Dias, 153 
CEP 01433 - Tels. (01 1 1 853-3800 
8537758 

RECIFE 

Monte SiSo Distr. Nordeste Ltda. 

Rua Almeida Cunha, 65 

CEP 50000 - Tel.: (081 ) 222-1699 

GO I An I A 

Tiago Motia Araujo 

Rua 6, nO 31 - CEP 74000 

BELO HORIZONTE 

Profitsional Com. Rep. Editorials Ltda. 
Rua Guajajaras. 410 ~ Cj. 305 
CEP30000- Tel.: (0311 222-8679 

PORTO ALE6RE 

Aurora Auessorla Empresarial Ltda. 

Rus Uruguai, 35 - sala 622 

CEP 90000 - Tel.: (0612) 26-0839 



4ISLU 



'\,1i'_r;i.' {ii;. I .;!Jl^i:, '.jvt;. tirc'cb 



trs-80 trs-80 trs-80 trs-8 



Mire certo e . . . GOLF! 



Silvio Cavalcanti de Araujo 



Este jogo 6 extremamente simples, mas muito interessante. Nele. 
o jogador ter^ que acertar o maioi ndmeio possfvel das dez ta- 
caxlas a que tem direito, em cada grupo de jogadas. Para isso, 
cle tera que fomecci a for^a da sua tacada.que varia de a 62. 
Essa for^a. nada mais e do que a quantidade de espa:^s que a bola 
(o) devera peicorrer para caii no buraco. Se a forga for maior ou menor 
do que a necessaiia, a bola luo cairi e o jogador perderi a tacada. 

A pista de jogo e formada pelo carater 191- O buraoo 6 aleat6rio e 



forneddo por RND de 62. 

Se jogador quiser saber previaraente o niimero do buraco, deve in- 
seriialinha:6I PRI^^T 16. "B- "S 

Sflvio CtvlctntI da Anujo tarn IB anot a asa cursando a 1* i4ri» do 
2P gnu no CoUgio Sahsiano, am Rac/fa. Ela 4 pouuidor da um DOT- 
100. onda damnvoiva tau$ programae. ■ 



Golf 



260 IF T4="J" OR T*="j 
270 GOTO 240 
3D0 CLSiPRINT CHR4(23) 
310 PRINTtPRINT" 



THEN GOTO 



GOLF Ml 



1 lioTn ..no 

5 1=0 

7 1=1*1 

Q ir 1=11 THtN 380 

iO uL5 

15 PRINra896."o" 

20 FOR X=16320 TO i6383:P0KE X.191:NEXT 

"30 P=fiND<62> 

40 -"-Bt-iia^O 

50 POKE S,32 

iO PRINTai,"<5UAL A FORCA" 

62 PRINTaaO, "TACADA No."; I :PRINTa53,P j'-PTS." 

63 INPUT F 

A5 IF F>63 THEN PRINT:PRINT!PRINT:PRrNT:PRINT:PRIN 

T" Jogada i Itgal , tente de novo 

."SFOR T=i TO i5D0:NEXT!G0T0 10 

70 C=F+1632D 

73 U=F+ 16256 

90 FOR Y=i6256 TO U:POKE Y.lllsPOKE T-1,32SF0B T=l 

TO 5:NEXTtNEXT 
100 VI=S-64 

110 IF tJ=yi THEN FOR T=l TO iOOsNEXT TJPOKE S,lll: 
POKE yi,32!P=P+l 
120 PRINTa 473,"0UTRA VEZ ''" 
130 R%=INKEyi:IF Rl="" THEN 130 
140 IF Rt=:"n" OR Rt="N" THEN END 
150 GOTO 7 

200 CLS:PRINT CHR5{23) 
210 PRINTJPRINT" <C> 
NT!PRINTiPRlNT"»« F I 
INTsPRINTJPRINT" 



220 PRINT:PRINT:PRINT 

" PARA INSTRUCOES,"! 

230 PRINT" E "CHR5(34>"J"CHR5(34) 

240 Tl=INKEYtiIF T*="" THEN 240 

250 IF Tl="R" OR T%="r" THEN 300 



SILUIO ARAUJO. (1984)":PRI 
C C I N A — RECIFE *»"SpR 
GOLF Ml 

TECLE "CHR%(34>"R"CHR*(34> 



PARA JOGAR...' 



320 PRINT:PR1NT:PRINT"ESTE JOGO CONSISTE EM ACERTA 

R MAIOR NUMERO POSSIUEL DE TACADAS 

330 PRINT"PARA ISTO, yOCE DEVE DIGITAR A FORCA DA 

TACADA SUANDO REflUISI-TADA PELO MICRO. (NO MAXIMO 

62)" 
340 PRINT:PRINT"TECLE J PARA JOGAR !!!" 
350 Ji=INKEyi:IF Jt="" THEN 350 
360 IF Jt="J" OR Jt="J" THEN P=0:GOTO 5 
370 GOTO 350 
380 CLS 

390 PRINT:PRINT;PRINT 

400 IF P=0 THEN PRINT :PRINT'UOCF FEZ ( ZERO ! P 
ONTO. NAG DESANIME. TENTE NOyAMENTE." 
410 IF P>6 AND P<iO THEN PRINT'yOCE FEZ IJMA OTIMA 
CONTAGEH DF PONTOS. CHEGO 

U BEM PERTO DOS DEZ <PONTUACAO MAXIMA). 

TENTE DE NOVO.": PRINT"yOCE FEZ"fP;"PONT 
OS." 

420 IF P>0 AND P<5 THEN PRINT' ATE" SUE NAO FOI 

TAO RUIM ASSIM. MAIS P 

ODE-SE MELHORAR. TENTE DE NOVO . . . " :PRINT"VOCE FEZ" 
;P;"PONTOB." 

430 IF P=5 OR P=6 THEN PRINT"yOCE FEZ" ;P ; "PONTOS. 

NADA 
MAL PARA UM INICIANTE . . ." 
440 IF P=10 THEN PRINT"yOCE FEZ";P ;"PONTOS < i I 

MELHOR QUE I 
SSO, SO ' DOIS DISSO. 

HAS EU ACHO QUE VOCE NAD E' CAPAZ DE REPETI-LO. 
QUER APOSTAR ? TENTE DE NOVO." 
450 PRINT:PRINT!PRINT"QUER TENTAR OUTRA VEZ ? CS 
/N) ?" 

460 S5=INKEY5:IF SI="" THEN 460 

470 IF St="N" OR 5%="n" THEN END:ELSE :P=0!GOTO i 
500 ' PROGRAMA DE SILVIO CAVALCANTI DE ARA 

UJO, 

EM 27 / 03 / 1984. 
DGT-1000 / 16 Kb 



ilCROMAQ 



Microcompuladores 

Acessorios 

Perifericos 

Programas 

Sistemas de Seguranca 



Rua 7 de Selembro, 92 106 Tel.: 222-6088 R.J. 



Saiba porqueoCirandao 
se ligou tanto 

no Modem UP-1275 VTX 

da Parks. 




O Modem UP-1275 VTX da Parks c o 
modem homologado pela Telebras. Depois de 
todos OS testes de qualidade realizados pela 
empresa, ele mosirou que e o mais duravel e de 
maior rcsistencia, 

O Modem UP-1275 VTX da Parks e a 
maneira mais simples, rapida e duravel de voce 
ligar o seu microcomputador ao Serv'igo 
Cirandao c Videotexto. Basta uma linha 
telefonica comum para completar a ligagao e 
ter ao seu alcance as mais diversas informafoes 
de interesse domestico, empresarial e 
profissional. 



E um aparellio de pequenas dimensoes 
(15 X 25cm), peso reduzJdo c de facil instala^ao. 
Recebe sinais em 1200 bps e tran smite a 1200 ou 
75 bps. AJem de tudo, tem aJta durabilidade e 
faz voce ficar na linha por muiio mais tempo e 
tem muito mais facilidade de reposi<;ao de 
pc(;a5. 

Reccba o Servit^o 
Cirandao Ou Videotexto cm 
sua casa, empresa, 
consultorio ou escritorio, 

O Modem UP-1275 VTX 
da Parks da o acesso. 





MODEM t;P-l275 VTK 



^MiCO Dfc iMr^os 




E AUTOMATICO: Voce compra o Mtxiem 
UBJ275 VTX da Parks eganha jma inscrigao 
para ingresso no Serv'i<;o Cirandao da Enibratel, 



Rl-EH 
^^t.bH>Nlt'A 



] 200/75 



oo 



MalriK Ptirto Ak^ic ■ RS ■ Av. Parani, 233MbrK{fJSl2) 42'?500. Tdra (05]} \(H^ • tlllafe: &V. Paulu F^ne (Oil) 572-7t7|. Tcl« l«ll} 23-1-11 • Curiuha 
\ iiFiL- ((« I ) 232 I fi [4„ Ttlcx (ftil } 5406 • Rjt> de Ja^ro Rjne (021 ) 240-7443, Tckx (021 1 33-«2 1 • HaxjIc hjne {OKI > 325 2 123. TelcK (08 1| 424* • ItepiHflitiiilfs 

fk'ki Hori/orne Hdik {03]> 226-5722 ■ Rwilsa-kiiK 106] t 2724825 • Btumenau f^rw (0*731 22-6^48 - Campo ardndc:K;iK (067) ^3-5331 ' Floriantipolis 
iTirw: (Ci*S2) 22-152.^ ■ C;«ahdrfi3EK{065( 321-5020 • UbcrEJiHlia Inne (034) 234J«Xt • Salvador Fbne (07h 249-^44. 



apple apple apple apple ap 



Sinclair Sinclair Sinclair sine 



Galaxy 



Luciano Demarchi 



Galaxy e um jogo bastante simples, para os micros da linha 
Apple. O objetivo do jogo e destruir a nave inimiga, que passa 
na parte superior da tela, utiiizando um canhao laser, que fica 
na parte inferior. Use a tecla 1 para atirar. A cada tiro certo vo- 
ce ganha quatro pontes e a cada erro perde dois. Se voce con- 
seguir destruir o inimigo. terd a chance de obter mais 500 pon- 
tos. Para isso, basta escolher tres niimeros inferiores a 39 e di- 
git^-los. Ap6s a sua escolha, aparecera, em alguma das 39 li- 



nhas da tela, um ponto. Caso voce tenha acertado o niimero da 
linlia, ter^ conseguido, entao, os 500 pontos. Mas lembre-se: 
para que os inimigos sejam destruidos voce nao pode enar tres 
tiros numa mesma seqiiencia ou o jogo terd que ser recome9a- 
do. Boa sorte e boa pontaria! 



Luciano Demarchi tem 14 anos e astuda atualmente DB sistemas. 



Juros descontados 



Fernando Cesar Raimundo 



5 GOTO 150O 
10 HOME 
15 C - 

30 SR 

35 COLOR- 15 

40 HLIN 0.7 AT 21 

50 VLIN 21,20 «T B 

60 HLIN li.24 AT 33 

70 HL IN ia,:!2 ftT 32 

80 VLIN 33, 2S AT 16 

90 VLIN 33. 2B AT 24 

100 HLIN 19.21 AT 31 

110 VLIN 29,30 AT 20 

130 B - 3: A - 39 

135 D - O 

140 R - INT <10 " RND (1) ) 

ISO IF R - 1 DR R = lO THEN GQTD 

170 
160 GOTO lao 
170 A - A - 1 
180 eOSUB 9O0 
1B5 E " PEEK « - 163B4> 
190 IF A - 5 THEN 60SUB 2S0 
195 IF E =■ 177 THEN GDTD 400 
200 GOTO I70 
250 C - C * I 

235 COLOR- 0: HLIN 0. lO AT 3 
27m CfXOR- 5: PLOT 5,B: COLOR" 

: PLOT 5,B - 1 
2BO B - B * 1 
2a5 F - PEEK ( - 163361 - PEEK 

( - 16336) ♦ PEEK < - 16336 

) 
290 IF B - 20 THEN LET P - 3: LEI 

A = 39: GOTO 7O0 
300 GOTO 270 
400 COLOR- 10 
410 VLIN 28.3 AT 20 
420 F • PEEI- < - 16336) 
430 IF A - 20 OR A ■ 21 THEN GOTC 

500 
440 GOSUB 9O0 
450 COLOR- O: VLIN 2B. 3 AT 20: Z - 

2-2 
460 E - PEEK < - 16368* 
470 GOTO 170 
500 COLOR- O 
511 HLIN 0.39 AT 3 
520 FOR G - 1 TO 20 
530 F - PEEK < - 163361 + PEEK 

< - 16336) - PEEK 1 - 16336 



540 
550 
560 A 
565 a 
566 
570 
700 
710 



> 

NEXT G 
Z - Z ♦ 
38 
D + 



IF - 10 THEN 

GOTO 140 

REM 

FOR G - I TO 10 



GOTO lOOO 



720 F " PEEK I - 

( - 16336) - 

) * PEEK ( - 16336) 
730 tffiXT G 
740 IF C - 3 THEN 
750 RETURN 
760 PRINT "VOCE FEZ ■■iz;" PONTOS 



6336) + PEEK 
PEEK ( - 16336 



GOTO 760 



I TO lOOO: NEXT 6 



770 FOR G 

775 TEXT 

780 HOME 

790 INVERSE : HTAB 10: VTAB 10: PRINT 

■■INTERGALACTEA- 
BOO PRINT : PRINT : PRINT "OUER 

JOGAR NOVAMENTE (B/N> '■ 
aiO GET A* 



a20 IF A» - "S" THEM NORMAL 

: GOSUB 201" I : (END 
825 NORMAL 
830 GOTO K.l 
900 COLOR" 3: PLOT A. 7-: COLOR- 

903 IF A - 38 THEN A - 37 

904 PLOT A * 1.3 

905 F - PEEK ( - 16336> 
910 RETURN 

TEXT : HOME 

PRINT "AQDRA VOCE TERA CHAN 
EE DE GANHAR': PRINT "500 PO 
NTOS DE EiONUS": PRINT "E SO 
DIGITAR 3 NUMEROS'': PRINT "E 

FICAR DE OLHQ NO TELA" 

INPUT Q.W.U 

IF O ■ 39 OR W ■ 39 OR U > 
39 TI«N GOTO llCtO 
1220 B - INT (39 » RND ID) 
1230 GR 

COLOR- 4 

PLOT O.B 

80SU6 1460 

HLIN 39. O ftT U 

GOSUB 1460 

COLOR- 9 

HLIN 39,0 AT O 

GD5UB 1460 

COLOR- a 

HLIN 39,0 AT U 

GOSUB 1460 

IFB-WORB-UORB-Q THE 

GOTO 1400 

HOME 

PRINT "VOCE ERROU OS TRES T 
IROS" 

GOTO 1450 

HOME 
Z - Z * 50<i 

PRINT "PARABENS VOCE ACERTO 
U" 

PRINT "AGDRA VOCE TEM "IZl" 

PONTOS" 

GET A» 

GOTO 10 

FOR V - 1 TO 500 

PEEK ( - 16336): NEXT V 



looo 

1100 



mo 
nil 



1235 
1240 
1245 
1250 

1255 
1256 
1260 
1265 
1266 
1270 
1275 
1280 

1289 
1290 

1 Z'JO 
1 4CiO 
1410 
1420 

145'> 

1452 
1455 
1460 
1470 n 



1 4B0 RETIAN 

1500 HOnE 

1501 GOSUB 2O00 

1510 PRINT "VOCE ESTA En PLENA E 
UERRA ESPACIAL SUA DBRl 
GACAO E NAO DEIXAR A NAVE IN 
1- MIGA POUSAR 3 VEZES NA 
BABE " 

1520 PRINT "OUE ESTARA LOCAL I ZAD 
A A SUA ESDUERDA. " 

!53i> PRINT : PRINT "USANDO UM CA 
NHAO DE LASER (LOCALIIADO 
ABAiXO DA TELA) VOCE DEVERA 
DESTRUIR A NAVE INIMIGA 
UE PASSARA NA PARTE SURE 
RiOR DA TELA" 

IS-IO SET A» 

1 550 HOME 

1560 INVERSE 

1570 PRINT " CDMAN 

DOS "; NORMAL 

: PRINT 

ISaO PRINT "VOCE DEVERA USAB A T 
ECLA ■ 1 ■ P/ ATIRAR" 

1590 INVERSE 

16O0 PRINT - BON 

US " ; NORMAL 



1660 

1665 
1670 
1680 



PRiUr "Q BONUS ^ERA GAUHO D 

A SEGUENTE MANEIRA:" 

PRINT "OUANDO VOCE DESTRUIR 

Seu INIMIGO APARE- CERA NA 

TFLA UMA MENSABEM EM DUE VDC 

E DIGITARA 3 NUMER05" 

PRINT "FEITD ISTD TERA DISP 
ARO DE 3 TIROS COM A FI 
MALI DADE DE ACERTAR O PONTO 

ALEATORIO COLOCADO NA T 
ELA" 

PRINT : PRINT "•DBS! NOME 
RO NAO PODERA SER MAIDR DUE 
39 ■■ 

PRINT : PRINT ■■SE VOCE ACER 
TAR a PONTO SERA RE- 
COMPENSADtl COM 5O0 PONTOS " 
GET A« 
HOME 
I N VERSE 

PRINT '• C0NTA6EM 

DE PONTOS ": NORMAL 

: PRINT 

PRINT "A CONTABEM DE PONTOS 

SERA FEITA DA 5E- GUINTE M 

ANEIRA: ": PRINT 

PRINT "CADA TIRO OUE VOCE 
ER PERDERA 2 PONTOS E CADA V 
EZ DUE VOCE ACERTAR A NAVE 
GANHARA 4 PONTOS" 
PRINT : PRINT : PRINT : PRINT 
"APERTE OUALOUER TECLA P/ CO 
MECAR A JOGAR" 



1720 


GET A« 


1730 


GOTO 10 


2000 


REM 


2010 


INVERSE 


2020 


FDR G - 1 TO 50 


2030 


PRINT " INTERGALACTEA 




INTERGALACTEA ": NE 
G 
FOR G - 1 TD lOOO: NEXT G 


2040 


2050 


HOME 


206O 


GR 


2065 


COLOR- 10 


2070 


HLIN 9.28 AT 34 


2080 


HLIN 9.28 AT 33 


3000 


HLIN 12,25 AT 32 


3010 


HLIN 12, 16 AT 31 


3020 


HLIN 12, 16 AT 30 


3O30 


HLIN 12.16 AT 29 


3O40 


HLIN 12. 16 AT 28 


3O50 


HLIN 12,16 AT 27 


3060 


HLIN 5, 17 AT 26 


3070 


HLIN 21,25 AT 31 


3O80 


HLIN 21.25 AT 30 


3O90 


HLIN 21.25 AT 29 


3095 


HLIN 21.25 AT 28 


3100 


HLIN 21,25 AT 27 


3110 


HLIN 20.31 AT 26 


3120 


N - 36 


3130 


N - N - 1 


3135 


IF N - 17 Th«N GOTO 3200 


3140 


COLOR- 9: PLOT N. 3 


3150 


COLOR- O: PLOT N ♦ 4.3 


3160 


GOTO 3130 


3200 


COLOR- 


3210 


VLIN 31.3 AT IB 


3220 


VLIN 31.3 AT 19 


3230 


FOR G - 1 TD 2500: NEXT 6 


3500 


TEXT : HOME : NtWMAL 


4000 


RETURN 


45000 


REM LUCIANO DEMACHI 



Galaxy 
62 



1 WEM PROGRflHfl DE JUROS DESCO 
NTRDO 

5 CL5 

le PRINT "ENTRE COM fl TRXfl,-, 

2a INPUT T 

3B PRINT T. ■■ ■/, - 

4-0 PRINT . , ■ ENTRE COM O MONTRN 



Juros Descontados 

Nesses tempos de crise, nao podemos 
descuidar de nossas economias. Per isso, 
aproveite esse programa, desenvolvido 
num TK85, e fa^a uma previsao antes de 
aplicar o seu rico dinheirinho. 



TE, " 

50 

60 

70 

S0 

90 

95 

100 

ZZ 

110 

115 

, ■• ■/. 

120 

124. 

,T; ■■' 

126 

130 

OS ■■, 



INPUT n 

PRINT ■■ ;CR» ■' . M 

PRINT ,,''N"DE ME5ES ? . - ; 

INPUT ME 

PRINT ME 

IF T»ME>=100 THEN GOTO 200 

LET X=IT*ME/(10O-(T*ME) ) 1 41 

PRINT . . "COEFICIENTE " : / 
PRINT ..■■BflSE flO ME5 " , X /ME 

LET Y=i (M*X) /100I 

PRINT ..■■URLOR DO JURO DE '■ 

'/. ■■ 

PRINT ■■ >CR» ■■,/ 

PRINT .."yflLOR fl RECEBEP flP 
ME, ■■ MESES ■■ 



14.0 PRINT ■■ >CRS ■■.Y+M 

150 PRINT AT £1,2, -WOUTRO CflLC 
ULO iS/N' ?rt" , 

160 IF ItJKETS^'5'' THEN RUN 

170 IF INKEVJs'N" THEN GOTO 300 

175 PRINT AT 21 .2. "^OUTRO CflLC 
ULO 15/NI ?V" 

190 GOTO 150 

200 CLS 

210 PRINT RT U.S. "CfiLCULO IMPO 
55IUEL. ■ ■ ■■ 

220 GOTO 150 

300 CLS 

310 PRINT AT 11.7; "T C H 



U. . . 



320 STOP 

330 SflUE "JUPOS DESCONTRDO' 

34.0 BUN 



K 



MICRO SISTEMAS, fevereiro/SS 

















'^nmnf" 




























sistemas x,^ N 














































































































































































































H H ^^^ ^^ ^^^ ^^ ^ 














MTf^iJii 1^1 If X' 














n^LrtvU r*' " ^ ^ 
















^" ^^ ^^ 
















EM FITA 




















' 1 I 1 I 1 1 1 1 1 T 1 1 1 1 1 1 1 1 1 1 T 

- Sim, desejo receber 

-Da fita MICROBUG, pela qual pagarei Cr$ 20 mil + Cr$ 2.300,00 referente a 
despesas do correio. 
D OS numeros atrasados de MS, pelos quais pagarei o prepo de Cr$ 1 mil* por exem- 
plar. Ma interessam asedi^fles: D MS n9 31 D MS n9 33 

D MS n9 32 D MS n9 34 


proieto MICROBUG, desenvolvido pela equipe do 






CPD de MS, foi criado para auxiliar o entendimento e 
a explorapSo dos recursos existentes nos micros da 






linha Sinclair. Sua con^rupSo, passo a passo nas 

pibginas da revitta, tem tido importdncis decisrva no 

aprendizado e desenvolvimento dos usuirios na 

programapio em linguagem de m^uina. 

Devido ao enomie tucesso do MICROBUG, refletido 














TOTAL: Cr$ 
NOMF- 




nas inumeras cartas que temos recebido, a ATI 








integral do MICROBUG. 






ENDEREqO: - 




garantirKto um padrSo de gravapSo profissional e 




uma embalagem invioldvel que vocfi ird apreciar. 






CIOADE 










Como a documentapio do MICROBUG comepou em 

MSn9 31, aqueles que adquirirem a fita terSo a 

OPORTUNIDADE DE COMPRAR OS 






Para tal.estou enviandoum cheque nominal S: ATI Editora Ltda. (Projato MICROBUG! 
Av.Presidente Wilson n9 165,grupo 1210- Centre- CEP 20030- Rio de Janeiro, RJ, 
_ * Despesas de raembo/so exclui'das 

DBS. : Os produtos acima podem ser adquiridos diretamente em nossos ascritdrios do 
Rio ou Sao Paulo sem despesas de correio. 

I 1 1 1 1 T r 1 I 1 r 1 1 






EXEMPLARES QUE NAOPOSSUAM POR UM 
PRECO ESPECIAL. Aproveite esta chance e 






usufrua logo do MICROBUG em sua forma integral. 






TIRAGEM LiMiTADA. 







































































































Linha TRS-80 



Quantos bytes? 

Saiba exatamente quantos bytes de memdria um 
programa ocupa com esta simples linha; 

CLS:ZZS=^""TAMANHO DESTET. PROGRAM 
A :=::=::=> " s Z Z^ < P E-:f:K ( 1 66 34 ) *256 + P EE! 
K ( i 6633 ) ) - (PEEK ( 16549 ) *256 + PEEK ( 
16548) )~103sPRINTa260,2Z4;ZZp^' B 
YrE3'' = F0R I-i TO 2000:NEXT I 

O procedimento tambem e bem ficQ: depois de co- 
locar esta linha no seu programa, chame-a com RUN 
0. E se per acaso seu programa yi possua uma linha 0, 
nffo tem importancia. e' preciso apenas arrumar um lu- 
gai para colocar esta dica. 

Dirceu Pivatto-RS 



Linha SINCLAIR 



Arte oriental 



Entre no mundo 
das mil e uma noites ; 

coloque esta dica no 
seu micro e veja uma 
s^rie intermindvel de 
belos tapetes persas 
voando na tela. 



1 REM TAPETES PERSAS 

6 REM AUTOHi RUY C. OONCflLVES 

8 REM AG05T0 DE \9BA - PORTO ALE 

GRE-HS 



10 


CLS 








?a 


LET Tl 


= " " 






30 


FOR 1 = 


1 TC 


5 




An 


LET A= 


INT 


(RNI>Mll ) 


50 


LET B= 


INT 


(RND« 


11)*12B 


60 


LET T! 


= Tt* 


:HRt 


A+CHRS B 


70 


NEXT : 








nn 


FOR 1 = 


i TC 


bA 




90 


PRINT 


T4; 






100 NEXT 


I 






no FOR : 


= 1 TO IDC 




120 NEXT 


I 






130 GOTO 


10 







Ruy C. Gone^ves-RS 



cIIg!^ 





a 



Linha SINCLAIR 



Se voce tem pequenas rotinas e programas 
utilitarios realmente uteis tomando poeira em 
seus disquetes ou fitas, antecipe-se aos piratas e 
trate de divulga-los. Envie-os para a REDAQAO 
DE MICRO SISTEMAS - SEQAO DICAS: Av. 
Presidente Wilson, 165 - Grupo 1210 - Centro 
— Rio de Janeiro — RJ — CEP 20030. Nao 
esquega de dizer para qual equipamento foram 
desenvolvidos. Desta forma sua descoberta 
podera ser util para muitos, em vez de 
desmagnetizar-se com o tempo em suas fitas e 
disquetes. 



Dissolvendo o video 

Veja a tela do seu micro ir se dissolvendo aos pou- 
cos (igualzinho k dica Derrelendo o video, para a linha 
TRS-80, publicada em MS nP 34, pig. 72), com esta di- 
ca em Assembler. Para usa-la, entre primdro com o MI- 
CRO BUG para criar uma linha REM com 48 bytes. 
Depois, digite estes c6digos: 



16514 ED 36 21 00 2A OC 40 OE 

16522 18 06 20 23 7E FE 80 20 

16530 03 3E 3F 77 B7 28 05 35 

16538 FD 36 21 01 10 ED 23 OD 

16546 20 E7 FD 7E ^1 B7 20 D8 

16554 C3 F5 08 80 B2 AF A7 80 



Agora, em vez de dar um CLS, digite LET L= USR 
16514 e comprove que efeito! For fim, um detalhe 
muito bom para o pessoal que vai incrementaresta ro- 
tina nos seus programas: ela pode ser colocada em qual- 
quer posi^ffo de mem6ria. 

M&rio Jos4 BittencourtSP 



Linha TRS-80 




Faga uma reta 


Os usuirios da Unha TRS-80 agora ji podem tra^ar 


uma reta na tela do seu equipamento, 6 s6 digitar esta 


dica: 




2000 


INPUT X1,Y1,X,Y:CLS 


2010 


IF X~Xi=:0 M = 500 ELSE M=<Y-Y 


1)/(X-X1) 


2020 


IF ABS(M) >1 THEN 2070 


2030 


FOR X2=Xi TO X STEP SGN(X-X 


1> 




2040 


SET ( X2 , Yl+M*X2-M»tXi ) 


2050 


NEXT X2 


2060 


END 


2070 


FOR Y2=Y1 TO Y STEP SGN<Y-Y 


1> 




2080 


IF MO500 SET((Y2-Yl)/M+Xt, 


Y2) ELSE SET(X1,Y2) 


2090 


NEXT Y2 


2100 


END 


Henrique Monteiro Crist6vSo-ES 



Linha SINCLAIR 



A If abet o grego 



Reproduza os caracteres do alfabeto grego no seu 
TK-2000 com este programa que, inclusive, pode ser 
usado como sub-rotina em um editor de textos. 

20 DIM RA(24> 

30 FOR U=l TO 24:READ RACU):NEXT 

U 
40 DATA 8192,8320,8448,8576,8704 
,8832,8960,9088,8232,8360,8488,8 
616 

50 DATA 8744,8872,9000,9128,8272 
,8400,8528,8656,8784,8912,9044,9 
168 

60 HGR:HC0L0R==3sH0MEsI = l:L = 9 
70 OTAB 5:HTAB 1 s PR INT"LETRAS GR 
EGAS:"':PRINT:FOR U-=l TO 39:PRINT 
"-"; sNEXT U 
80 GOSUB 300 ■.N=0 
82 FOR C=il TO 27 STEP 2:N=N+1 
84 IF N=27 THEN 98 
86 IF C=27 THEN L=L+2 
88 IF C=27 THEN 82 
90 FOR J=I TO 1+7 
92 BA=RA<L.)+C"1 
94 POKE BA+1024*KJ-I),M(J) 
96 NEXT J!!I = I+8:NEXT C 
98 "v^TAB 18:HTAB 18: PR INT"ORLANDO 

HOUR A": PR INT TAB < 18) • "BELEM , AGO 
STO/84'^ 
100 END 

300 REM ** SIMBOL «*t 
302 DIM M(200) 

304 FOR U=i TO 192:READ M(U):NEX 
T U 

306 DATA 0,64,44,18,18,44,0,0,48 
,72,72,36,68,66,50,2,0,68,42,16, 
16,16,16,0,48,8,16,60,34,34,28,0 
,0,24,36,4,8,4,36,24,0,26,38,34, 
34,34,32,32 

308 DATA 4,56,4,8,16,32,36,24,0, 
60,66,66,126,66,60,0,0,0,128,4,4 
,20,12,0,2,18,10,7,10,82,98,0,2, 
5,8,8,20,36,66,0,0,18,30,18,18,8 
2,34,2 

310 DATA 32,64,66,34,34,18,12,0, 
2,28,2,12,2,50,76,32,0,0,28,34,3 
4,34,28,0,0,126,36,36,36,36,0,0, 
0,24,36,36,20,4,4,0,64,60,2,26,3 
4,34,28,0 

312 DATA 0,252,18,16,16,20,24,0, 
0,0,226,37,36,36,36,24,0,48,74,7 
4,60,8,8,8,2,69,40,16,40,68,130, 
0,130,85,84,56,16,16,16,0,0,0,2, 
65,65,73,54,0 
320 RETURN 

Orlando Moura-PA 





Curvas incriveis 


Fa^a uma surpresa aos seus amigos com esta dica 


que trafa curvas mirabolantes: 


e s<5 rod^-la, responder 


as perguntas que o programa faz e aguardar um pouco | 


porque esta dica e lenta. 




1 FAST 




10 PRINT "STEP?" 




20 INPUT B 




30 PRINT "A INICIAI 


/p// 


40 INPUT 




50 PRINT "A FINAL?" 


60 INPUT W 




70 CLS 




110 FOR A=Q TO U STEP S 


120 PRINT AT 21,25 


;"A="-A; 


130 FOR X=l TO 43 




140 LET Y=<A/2)*(EXP<X/A)+EXP(-X 


/A) ) 




150 LET D=24+A~Y 




160 LET 6=X+21 




170 LET H=43~X 




180 IF G>63 OR H<0 


THEN GOTO 230 


190 IF D<2 OR D>42 


THEN GOTO 230 


200 PLOT G,D 




210 PLOT H,D 




220 NEXT X 




230 NEXT A 




Adriarw Pascoal Pereira-RJ 



TK85 



Programas em seguranga 

De repente, um desculdo e... pronto! lA se foi aque- 
le programa que era tffo bom... Quantas vezes isso j5 
aconteceu? Para evitar esta triste situa^ffo, tenha sem- 
pre c6pias de seguran9a dos seus melhores programas. 
Esta dica faz para voce exatamente isto, e ainda tem 
uma vantagem: transmite uma mensagem, ao final da 
c6pia ou carregamento, infonmando se esti tudo ok ou 
nffo. Ela s6 tem uma restri^So: s6 pode ser usada no 
TK-85, pois OS comandos das linhas 40 e 70 sSo espe- 
ciais deste equipamento. Agora corra para o seu micro 
e fa^a logo um seguro dos seus arquivos. 

10 DIM A*<9000) 

20 LET Z=0 

30 LET ZS="A" 

40 LET A=USR 8305 

50 PRINT"CARREGAMENTO";"OK" AND 

NOT A;"RUIM" AND A 

60 PAUSE 4E4 

70 LET A=USR 8288 

80 PRINT"COPIA"p"OK 

RUIM" AND A 



AND NOT A; 



Pedro Paulo P. Santos-RJ 



De um visual todo especial aos seus 
programas, enquanto aprende mais sobre 
OS graficos de seu TRS-80. Isto e . . . 



FLASH! Assembler, graficos 
e muita imaginacao 



.Roberto Quito de Sant'Anna. 



Voce ]i sabe, certamente, que os equipamentos da li- 
nha TRS 80 possuem 64 caracteres grificos, cada 
um dividido em 6 blocos ou "pixels" - picture cells 
(ver a materia DISKZAP para mudar, MS nP 25), 
que abrangem os c6digos desde 128 at^ 191 ; o primeiro com 
todos OS pixels apagados e o ultimo com todos acesos. que 
muitos nao sabem 6 que se caminharmos das extremidades pa- 
ra o centro do intervale 128-191, a cada passo os caracteres 
considerados serao exatamente o inverse (o negative) um do 
outro! Exemplificando: 128 6 o inverse de 191, assim cemo 
129 6 e de 190, 159 ^ o de 160, etc. (ver figura 1). Se quiser- 
mos generalizai, 6 muito iicil: o carater grdfico 128+x e o in- 
verse do 191— X. 

Se aprofundarmos um pouce mais a nossa pesquisa a respei- 
te dos caracteres grdficos, chegaremos a duas outras conclus5es 
interessantes: a primeira 6 a de que todes os caracteres grdficos 
tern o bit 7 "setado", ou seja, igual a 1 ; e o bit 6 "resetado", 
ou seja, zero. A explica^ae e muito simples: todos os caracteres 
graficos s2o maieres ou iguais a 128 — que equivale a 10000000 
em bindrio — e menores que 192, 1 1000000 em bindrio. A se- 



c6digo 










Representa^ao Binaria: 


BITS 


SIMBOLO 


7 


6 


^ 


4 


i 


2 


1 





155=128+27 








1 








1 


1 





1 


1 
























164=191-27 








1 





I 


1] 





1 













































!!■ 


2 






1 


2 




4 


e 


::;4"- 


8 


16 


32 


16 


32 


15^ 


= 128- 


^27 


164 


= 191- 


-27 



Figura I - Caracteres grdficos inversos 



Figura 2 — Notar a complementaridade dos bits deOa 5 

gunda conclusao d a de que, olhando-se as reprfesenta96es bini- 
rias de quaisquer dois pares de caracteres inversos, tal come dis- 
cutido acima, os bits de a 5 sSe tamb^m os inversos (melhor 
dizendo, es cemplementos) uns dos outros! A figura 2 sinteti- 
za tudo o que foi dito al^ agora. 

ASSEMBLER E INVERSAO DE VibEO 

Vejamos agora come aplicar esses conhecimentos atrav^s de 
uma simples retina em linguagem de maquina para realizar a 
inversSo de todos os caracteres grdficos de uma tela de video. 
Esta sub-rotina pode ser chamada diretamente de BASIC e, co- 
locada em nossos programas, permitird a realiza9ao de espeta- 
culares efeitos visuals, que em nada ficar§o a dever aos dos me- 
Iheres jogos de a^So. De quebra, pedemos progredir um passo 
a mais no aprendizado da linguagem Assembler, pois € exata- 
mente assim que se come9a: analisando programas e assimilan- 
do pequenos conjuntos de instrufoes de cada vez. 

A listagem-fonte de nossa retina, juntamente com os c6di- 
gos-objetos, estd na figura 3. A 16gica ^ bastante simples e cen- 
siste em examinar cada uma das 1024 posi95es da tela, a partir 
de 3C00H= 15360D; verificar se e seu conteudo € um cardter 
grdfico e, em caso afirmativo substitui-lo pele seu cardter in- 



Em marpo, MS vai mostrar como se processa a comunicacao de dados 



• Redes locals • A viagem dos dados • Modems, um periferico em voga 

E a\nda: Arquivos no NEWDOS, Compiler e Quasar IV - um compilador BASIC 

e um otimo jogo, e o Solitario, para Sinclair. 



7000 




00100 






ORG 


7000H 


7000 


2iQD3C 


OOilO 






LD 


HL,3C00H 


7003 


010004 


00120 






LD 


8C,1024 


7006 


7E 


00130 


TESTA 


LD 


A, (HL) 


7007 


FE8Q 


00140 






CP 


80H 


7009 


3808 


00150 






JR 


C, SEGUE 


700B 


FECO 


00160 






qp 


OCOH 


700D 


3004 


00 170 






JR 


NC, SEGUE 


70GF 


2F 


00180 






CPL 




7010 


C64D 


00190 






ADD 


A, 64 


7012 


77 


00200 






LD 


< HL ) , A 


7013 


23 


00210 


SEGUE 


INC 


HL 


7014 


OB 


00220 






DEC 


BC 


7015 


78 


00230 






LO 


A,B 


7016 


Bl 


00240 






OR 


C 


7017 


20ED 


00250 






JR 


NZ, TESTA 


7019 


C9 


00360 






RET 




0000 




00270 


, 




END 




OOOQG TOTAL 


ERRORS 










34841 


TEXT 


AREA BYTES 


LEFT 




SEGUE 7013 


00210 


00150 


00170 




TESTA 7006 


00130 


0025D 







Figura S- Listagem do prograrnafonte INVERTEISCR 



verso ou complementar, retomando ao programa BASIC ap6s 
examinar a ultima posi9i[e. 

processe se inicia carregando em HL o endere9e inicial 
da tela e em BC e niimero total de posifSes, 1024 (linhas 1 10 
e 120), em seguida € iniciado um 1390, deneminade TESTA, 
abrangende as linhas de 130 a 250. Nesse 1390, e conteudo da 
posi9ao da tela apontada per HLe carr^ado no acumulador A 
9 comparado. sucessivamente, com 80H= 128D e COH =192D. 
Case o conteudo de A seja um sfmbole grifico, a logica ser6 
transferida para a linha 180 onde, juntamente com a iinha 190, 
a inversao propriamente dita ser^ realizada. 

Tal inversao i feita em duas etapas (acompanhe pela figura 
4): inicialmente. e chamada a instru9ao CPL, que inverte tedos 
OS bits de A. O byte daf resultante tem, infelizmente, o bit 7 
igual a zero e e bit 6 igual a 1 e. come tal byte nao pode repre- 
sentar um carSter grifico, a solu9ao para restaurar as coisas i 
simplesmente adidon^r 640=01000000 ae conteudo de A (ve- 
ja novamente a figuia 4), que passa a conter o s^mbolo gr^co 
complementar do original e que e, em seguida, transferido para 
o endere9o apontade per HL (linha 200), sende impresso na 
tela. 

Caso o conteudo original de A nao seja um simbolo gr^ico, 
ou ap6s a epera9ae de inversao acima, controle vai para a li- 
nha 220 (SEGUE), onde o HL e ajustado para apontar a pr6- 
xima posi9ao da tela (INC HL); a linha 220 diminui de uma 
unidade conteudo de BC-, a 230 coloca o conteudo de B em 
A e a 240 realiza a epera9ae 16gica OR entre C e A. Isto equi- 
vale a comparar entre si os dois bytes de um registrader de 16 
bits (par BC) e, se ambes forem nulos, e resultado ser4 nulo, a 
ultima posi9ae da tela teri side atingida e e precesso estard ter- 
minado; caso contr^o, a linha 250 transfere o controle para a 
linha 130 (TESTA) e o processo 6 reiniciado. 

APUCAgAo 

A figura 5 mestra um exemplo da aphca9So da nossa sub- 
rotina a um programa BASIC, aplic^vel a qualquer modelo ou 



Conteudo Original de A (180) 


1 





L 


1 


D 


1 








Conteudo de A apos CPI. 





1 








1 


fi 


1 


1 


+ ki 





1 














u 





Conteudo de A apos adic;ao (139) 


1 











1 





1 


1 



ID CLSsPOKE 165<S1,0:P0KE 16562 , 255ICLEAR 100 

20 FOR 1—256 TO -23itREAD AiPOKE I.AINEXT 

30 IF PEEK (16396) =201 POKE 16526, OiPOKE 16527,255s 

GOTO 50 
40 DEFUSR=-256 
50 FOR 1=15360 TO 16383 STEP 6SP0KE 1,183: 

POKE I+i,187sNEXT 
60 X=USR<D)tFOR 1=1 TO 50:NeXTiGOT0 60 
70 DATA 33,D,6D, 1,0,4, 126,254, 128,56,8,254,192,48,4 
BQ DATA 47,190,64,117,35,11,120,177,32,237,201 



Figura 5 - Listagem do programa BASIC IN VEkTE IBAS 



configura9^, para obter um bonito efeito visual. A linha 10 
realiza a protefSo da mem6ria a partir de 65280; a linha 20 
carrega os 26 bytes da sub-rotina, ap6s convertidos para o sis- 
tema decimal, a partir de -256 Qenibre-se: 65280 - 65536 
= 256); a linha 30 verifica se o sistema tem eu nSo disco; a h- 
nha 50 preenche a tela com sfmbolos graces de uma forma 
muito interessante e, finalmente, a linha 60 chama a sub-rotina 
para execufSo, constituindo um 1390 infinite. 

Agora 6 s<5 "bolar", per exemplo, uma abertura para seu 
programa, encaixar no mesmo a sub-rotina e, tal como na Unha 
60,chami-la quantas vezes quiser. Outra sugest^o seriaade,em 
um programa que exigisse alguma resposta do usuirio, "explo- 
dir" a tela em caso de erro. A sua imagina9So € limite! ■ 



Roberto Quito de Sant'Anna 4 engenheiro de ttlecomunica^t, forma- 
do peh Inttituto Milrtar de Engenharia. Profetaor da cadeira da fnfor 
mitica da Academia Militar das Agulhas Negrat daada agorto da 1982, 4 
tamb4m co/aborador da Micro-Maxi Computadoras e Sittamat, como 
analista de sittamas. Colabora com a revista MICRO SISTEMAS hi bas- 
tante tempo, sartdo raspontivai pela 'Rodada MS'. 



Figura 4 ~ As operafoes de invenao 
MICRO StSTEMAS. f8vere(ro/85 



tcfdhYL 

UIDEDTEHID 

voce ja encontra na 





O seu microcomputaijor CRAFT 11 plus, 
pode agora ter acesso ao VIDEOTEXTO" ■ 
banco de dados da TELESP. com imagens a 
cores, atraves de uma interface RS 232-C, um 
modem assincrono e um software dedicado, 
k venda e em demonstragSo na SACCO. 

Tome-se um usuirio do VIDEO-TEXTO, 
opcionalmente tamb6m do Projeto Cirandao, 
e garanta hoje o seu presente de Natal. A sua 
famllia tamb6m vai poder usar e gostar 
muito. 

■ Sao Paulo - Santos Campinas 

SACCO Computer Store 

Al. Gabriel Monteiro da Silva, 1229 - J. Paulistano 
sao Paulo - SP ■ TeL: (Oil) 852-0799 



-tfiOCO umu financio| OfeFBdn 



VEIMDO 



SOFTWARE 



Viticalc para CP-300, igual ao 
do CP-500. Acompanha manual e 
tabela de comandos. Cl^udio, tel.: 
(011) 61-6884, ap6s20h6. 

Compro programat para TRS 
80 - Caisete a 11-59. Douglas W. 
Heckmann - R. Lauro Linharw, 
227 ap. 102 - Ftorian6poli» - 
SC. 

Pacote de c^lculo numdrico p/ 
linha Sinclair. Fita com 18 progra- 
mat. incluindo: Sittema Linear, 
Inversao de Matriz, Autovetoret, 
Siitema nao-linear, Calculador de 
F6rmula(, Zeroi de FunoQes, Re- 
gressao Linear, tnterpola^, In- 
tegral, Sdrie de Fourier, Grdflco 
do f(x), Superffcies, Curves para- 
m^tricas, Trangformafoes no pia- 
no comptexo, Equapoes diferen- 
ciais ordindrias (com grdficos). 
Acompanha manual. Pre^o 30 
ORTN. Envie cheque nominal d 
Luiz Henrique Duczmal - Rue Ja- 
va, 186 - Nova Suf9a - Balo Ho- 
rizonte - MG - CEP: 30000. 



Vendo ou troco programat pa- 
ra microcomputadoret Apple e tt- 
milaret entre jogoi e aplicativot 
de Engenharia. Bom pnqo. Eicre- 
va para Joao Bosco de Cartro -~ 
R. Licinio Leite Machado, 59 — 
Santanaoutel.:(0123) 22-0420. 

Apple & CompatTvels. Progra- 
ma« e manuals - tolicite liitai - 
Dominio Publico Soft & Man - 
Cx. Postal 201 - S. Bernardo do 
Campo - CEP: 09700 - S. Paulo. 

Soft para Apple - Cr$ 18.000 
disco cheio. 500 tftulot. Pe^a ca- 
tilogo - Alfamlcro - Cx. P. 21 193 
-S. P. 

Commodore-64, attestoria, 
toftware, manuten^ao e acett6riot. 
Av. Brig. Faria Lima, 1644 s/l 26 
Sao Paulo - SP. Fone (011)843- 
1065, 

Linha TRS80 Color 300 pro- 
gramat a lua escoiha pelo cat^lo- 
go. Josd Luiz Pereira - Cx. P. 
1536 - Foz do lgua?u - CEP: 
85890 - PR. 

Soft CP500 (ditco) todo tipo 



troco - Paulo Cx. P. 6125 -131 00 
- Campinas SP. (0192)41-8860. 

Programas p/Apple: aplicativot, 
utilitdrios, compiladores, lingua- 
gens e jogos tel.: (021) 239-0449 
Stela. 

EQUIPAMENTOS 

Vendo unidade gravadora de 
memdria Eprom (2716-2K/2732- 
4K) p/adapta^ao em micros c/16- 
gica Sinclair. Tratar c/Jot^ Carloi. 
Tel.: (Oil) 220-4061 (noite). 

CLUBES 

. O NETC - NOCLEO de EN- 
SINO DE TECNOLOGIA E C|£N- 
CIA, sstard promovendo durante 
OS meses de Fev./Mar. ot seguin- 
tes cursos: Eletr&nica Digital I e 
II; Computadoret e Microcompu- 
tadoret Digitais — Hardware; Pro- 
gramaqSo Assembly Z-80 e 8080/ 
85; Hardv\ere de Sistemas Basea- 
dot no MP Z-80, 8080/85 6.800; 
Interfaces A/D e D/A; Hardware e 
Software de Taleprocessamento. 



Todos OS cursos sao integralmen' 
te apostilados e rstroprogetados, 
contando com aulas pr^ticas em 
[aborat6rios de Hardware e Soft- 
ware amptamente equipados com 
m6dulos de treinamento, micro- 
computador TRS-80 e micros de 
dasenvolvimento ds Suporte En- 
genharia. Informa^Ses e pedidos 
de cat^logos de cursos: Rua Al- 
varo Alvim nP 37 - 2P andar - 
Fone (021) 220-1989, Centro - 
CEP: 20031 - Rio de Janeiro - 
R J, das 09:00ht At 22:00hs. 

CURSOS 

O Centro Cultural CSnd'rdo 
Mendet asxi com intcrigoes aber 
tat para OS seguintes cursos: Intro- 
duce aos Microcomputadores 
(16:00hs) - Linguagem Basic 
(20:00ht) - Basic Para Advoga- 
dos (28:00hs) - Linguagem de 
Mdquina p/TK (20:00hs) - Micro- 
computadores p/Criancat - Mod. 
II (12;00ht) - Microcomputado- 
res pCrianp at - Mod. Ill (1 2:00ht). 
Inf. e inscripoes A Rua Joana An- 
gelica, 63/6P and. Tel.: 267-7098 
ou 267-7141 ramal 8^s 13.O0h8. 




QUEM MANDA 
NESTA PAGINA SOU EU! 



Apoiadol Equipamentos, Software, Cursos, Clubes e Diversos: 
voce 6 quam decide o que, quando e como anunciar nos 
ClBSsif icados MS. Quanto vocS terd qua pagar? Itso tamb6m A 
decitfio sua. Preste aten^So: 

• cada linha de texto (30 toques, incluindo ot etpapot am brsnco) 
custa Cr$ 2.000,00; 

• linhas incompletat tarSo cobradascomo inUiras; 



• o pr&prio anunciante deve checar o valor ds teu anfincio com o 
nOmaro de linhas que ele contiver; 

• o anOncto deve vir acompanhado de um cheque nominal d ATI 
Editora Ltda; 

Os textot devem sar datilografadot ou escritos em letra de forma, 
obedecendo at 30 batidat por linha. Veja um exempio: 
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„JV\\cro 
SIstemas 



Maiores informa^des pelos telefonet: (021) 262-5259 - RJ ou (Oil) 853-7758 - SP. 




m.S. Services 



SOFTWARE -CP/M 



Administragao Imbveis/ 
Condom fnios 
Controle Administrativo/ 
Financeiro p/Clubes, Escolas, 
Corretoras Seguros 
Controle Operacional Hotfiis 
Corre?aio Monetiiria balan^o 
Faturamento Services Medicos 
(Convenios) 

Formulacao/Cdiculo de Ra?6es 
Gerenciamento Rebanhos Gado 
Leiteiro e Gado de Corte 



Praia de Botafogo n9 210 - C-01 
CEP 22250 - Botafogo - RJ 
Tel. PBX (0211 551-6699 



vmj^ii^c^i 



:iNFORMATICA 



HARDWARE 

Compfa ft venda de microcomputadores 

ASSINATURAS 

Lsiagens de programas para a linha 

Sinclair 

SOFTWARE 

DesenwoKimento. venda e locavSo 

SUPHIMENTOS E ACESS6RI0S 

DiskeUes, drives, loysticks. lormulSnos 

continuos, elc 

CONSULTORIA E SERVigOS 

EMPRESARIAIS 

Escf ii6rios. lojas. escolas e consulifinos 

CONSULTE-NOS 

SEM COMPROMISSO 

THOPICAl INFORMAIICA LTDA 

AV NOVAfNOEPENDeNCtA.281 -CJ 1 

FONE (011)533-4971 -CEP 04570 

BROOKLIN - SAO PAULO - SP 



ALBAMAR 

eletrOnica ltda. 



FITAS CASSETES 
TAMANHOS 

C5 CIO C15 C20 
C30 e outros 



•FITAS 
MAGN^TICAS 

1 200 e 2400 pes 

• DISKETTES 

5 1/4 e 8" 



Rua Conde de Leopoldina, 
270-A Sao CnstovSo — RJ 
Tels (021) 580-6729 
580-8276 




3L 

lugar compativel 

com voce e seu 

micro. 




— Micros 

- Acessorios 

— Software 
— Livros 

— Revistas 



y 



Rua Oias da Cruz, 215 — loja 

107 - Rio de Janeiro- RJ 

Tel.: 594-2699 



mcRoeauipa 



COMPUTADORES 
E PERIFERICQS 

UNITRON 
MICROCRAFT 



VENDAS 
LEASING 

PROGRAMAS 
CURSOS 

ASSISTENCIA 
TECNICA 



Av. Mil. Canura, 271 %/1oia 101 
Tel: 1021) 262-3289— H.). 




PARA PROBLEMAS COM^MATERIAL DE 

DESENHO ■ PINTURA ■ ENGENHAHIA 
PAPEUniA - ESCRITORIO - MAQUINAS PI 
KCRITPR10 E SUPRIMENTOS EM GERAL 



^y/f.> 



O BEL BAZAR 
ELETRONICO 



onds voci AINOA sncontra prsco 
« quiHdxH (Hi ANTIGAMENTEl 

AV. ALMIRANTE BARROSO, 81 ■ U "C" 

TEL: 262-9229 ■ 262-9086 - 2«>8410 - 221-8282 

RIO DE JANEIRO CASTEIX) 



IMPOSTO DE RENDA 
POR COMPUTADOR 

Use OS modernos 
Computadores Cobra 
para fazer sua 
declaragao: 

• Seguranga absoluta 

• Rapidez 

• Teen i COS 
especializados 




PRO JED ATA 



Ppa. Tiradentes nS 1 

sale 706 Centro-RJ. 

Tels.: (021) 242-3433 

571-8447 

2S8-7599 



LE/A 

E 

ASSINE 




/Micro 



MICRO SISTEMAS, dezembro/W 




Pare de Sonhan, 



Os leitores de MICRO SISTEMAS nao tern bola 
de cristal para adivinhar a cor de seus produtos. 



ANUNCIE EM MICRO SISTEMAS, 
E TENHA UM MACRO RETORNO. 



JTf^ 



T"T 



Av. Pret. Wilson n.° 165 — gr. 1.210/16 — TELS.: (Oil) 853-3229/853-3152 
CEP: 20.030 — Rio de Janeiro — RJ. 

Rua Oliveira Dias n." 153 — Jd. Paulista ~ Tel: (011) 583-3800/6537758 
CEP: 01433 — Sao Paulo — SP 




CP400 COLOR. 



SUGESTdES 

PARA O 

PROGRAMADOR BASIC 




SAVAGE, E. R., SugesToes para 
o Programador BASIC, Editele 
Editora Tdcnica Eletrdnica Ltda. 

■ Destlnado tamo a iniciantes 
quanto a programadores j^ expe- 
rientes, este livro traz una sSrie 
de sugestoes e sub-rotinas que 
permitem otimizar a elabora^o 
de programas, tornando-os mais 
compactos, elegantes e de exe- 
cute mais r^pida. 

Os diversos tdpicos e sub-ro- 
tinas sao expostos de maneira 
ctara e detalhada, mostrando co- 
mo e porque funciona cada sub- 
rotina e quando e como utilizd- 
la. Quando necessirio, sao utili- 
zados fluxogramas que contri- 
buem para um maior esclareci- 
mento l6gico. 

Ac todo sao 50 sugestoes e 
sub-rotinas de apoio (escritas no 
BASIC IvJivel II do TRS-80 e 
compatfveis, mas que podem 
rodar em outras mciquinas me- 
diante pequenas adaptacoes), 
inclulndo as varra^oes possTveis 
para as mais diversas aplica^oes- 




EIN-OOR. Philip; SEGEV. Eli. 
Administrapio de Sistemas da 
Informagao, Editora Campui. 

H O desenvolvimento de sistemas 
admlnistrativos de informa^o 6 
um processo complexo com nu- 
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merosos aspectos que abrangem 
uma grande variedade de detalhes. 
Este livro tern como primeiro ob- 
jetivo organ izar esses aspectos coe- 
rentemente, agrupando-os em t6- 
picos importantes, de maneira que 
o leitor possa analisar o material 
sistematicamente. 

Em geral, as obras sobre MIS 
tratam apenas de algumas das va- 
ries questoes existentes neste cam- 
po. ressaltando-as como se fossem 
as unicas de importancia, Em ^d- 
minisTrafio de Sistemas de Infor- 
mafio cada questao 6 unica e pos- 
sui seu prdprio conjunto de pon- 
tes crfticos. Por isso, o livro nao 
apresenta receitas para o desenvol- 
vimento e gestao de um MIS, mas 
um piano de contingencia, sob a 
forma de uma lista de verificacao 
que poderS ser aplicada na an^lise 
dos fatores de exito e fracasso de 
um sistema de informa^des i ad- 
ministraQao. 



L G. BKOOFiEH 



Df DADOS PARA 

lilCR 




BROONER, E. G., Ger§ncia 
de Bases de Dados Para 
Microcomputadores. Ed itora 
Campus. 

■ A maioria das apltca<;6es de 
computadores requer armazena- 
mento de dados, mas para se obter 
o mdximo de proveito das infor- 
mapoes mais complexas 6 necess^- 
rio o uso de t^cnicas para sua ma- 
nipulapao. Na verdade.sao muitas 
as tunicas que podem ser utiliza- 
das para a manipula^ao de dados 
e, por isso mesmo. o usuSrio faz 
freqiJentemente perguntas do tipo: 
por que deveria o m^todo de bus- 
ca bjn^ria ser preferido a alguns 
outros m^todos... e serS que deve- 
ria se-lo? Se o processo de hashirjg 
i lao rjpido. por que nao 6 o uni- 
co m^todo de procure utilizado? 
Por que cartas bases comerciais 
sao, aparentemente, tao simples, 
enquanto outras exigem uma du- 
zia de programas e diversos dispo- 
srtivos propulsores de discos? Es- 
ses sao alguns dos assuntos discu- 
tidos em GerSricia de Bases de Da- 
dos para Microcomputadores. 



Atrav^s de uma abordagem 
simples e objetiva, este livro expli- 
ca muitos dos mStodos utilizados 
para a manipula^ao de dados, for- 
necendo a orientagao necessdria 
para o uso dos recursos de busca e 
classificapao, o /inking eo hashing. 
autor enfatiza os aspectos pr^- 
ticos, descreve e avalia inumeras 
apiica^oes comerciais, apresentan- 
do exemplos do uso simultaneo 
de diversos arquivos tais como ati- 
vo fixo, inventdrio e foiha de 
paganwnto. 



PuCQRO. 



SAHRENECHA — 



ttSflMAS DE GERiNOA 

K BANCO DE DADOS 

DISIRBUfDOS 
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COUCEIRO, L. A.; 
BARRENECHA, H. f.. Sistema 
de GerSncia de Bancos de Dados 
Distribui'dos, Livroi T6cnicos e 
Cientrficoi Editora. 

H Este livro apresenta importan- 
tes aspectos relacionados com o 
desenvolvimento de projetos de 
Sistemas de Gerenciamento de 
Banco de Dados Distribufdos 
(SGBDD) e tern como objetivo 
avaliar problemas destadrea, assim 
como detalh^-los e estabeiecer o 
nfvel atual do conhecimento sobre 
o assunto, al^m de definir e locali- 
zer m^todos e modelos que estao 
sendo adotados para asolu(:aodes- 
ses problemas. 

Para alcan9ar esses objetivos, 
foi feita, no caphulo 2, uma con- 
C8itua9ao dos SGBDO, estabele- 
cendo um conjunto de conceitos 
bisicos que caracterizam e permi- 
tem a an^lise das principais carac- 
terfsticas funcionais desses siste- 
mas. 

capftulo 3 trata de um dos 
problemas mais importantes na 
^rea dos SGBDD: a determina^ao 



dos locals de armazenamento dos 
arquivos e diretbrios do banco de 
dados nos diversos n6s da rode. 

No capftulo 4 encontramos as 
sstrat^ias de processamsnto de 
consuttas — distribufda e centra- 
lizada - e tamb^m a an^lise dos 
algoritmos correspondentes. 

quinto capftulo traz um es- 
tudo dos tipos de algoritmos para 
efetuar o controle de concorrfin- 
cia. Estes algoritmos podem ser 
baseados na ordem de escalona- 
mento ou em tdcnicas de exclusao 
muiua. Al^m disso, tamb^m sSo 
apresentados no capftulo 5 alguns 
conceitos b^sicos que factlitam a 
compreensSo do tema. 



PRATES, ^..CartSode 
ReferSncia - CP-SOO, Livros 
T^cnicos e Cientfficos Editora. 



B Quantas vezes voc€ nSo teve 
que interromper uma digita^So 
para consultar o manual do equi- 
pamento porque esqueceu algum 
comando, quer verificar uma fun- 
fSo especial ou mesmo ter acesso 
ao c6digo de erro? Agora, com o 
CartSo de Referincia do CP-SOO, 
esse trabalho nab ser^ mais neces- 
sirio. Ele 6 um instrumento de 
grande valia na programacSo e no 
uso do CP-500, pois abrange to- 
dos OS comandos do DOS-500;os 
ap6ndices DEBUG, MERGE, DIR, 
HELP, LIB e FREE; c6digos de 
erro do DOS-500; caracieres espe- 
ciais; funpSes especiais do tecia- 
do; mapa de membria do CP-500; 
tabela de conversSo; memiiria do 
tedado; organiza^So do disquete; 
caracteres kana; subcomandos de 
ediffo; funcSes, mensagens e cb- 
digos de erro, limites e coman- 
dos da linguagem BASIC; opera- 
p6es especiais; caracteres de mo- 
delo de edifSo para PRINT 
USING; palavras reservadas; tabe- 
la de caracteres de controle do 
vfdeo CHR$; tabela de caracte- 
res do vfdeo/impressora; abrevia- 
turas e caracteres especiais do 
BASIC; c6digos de compreensSo 
de espago e todas as declaragSes 
utilizadas no BASIC. Este cartSb 
6 uma publica^So in^dita — a pri- 
meira, no genero, de autor brasi- 
leiro para equipamento nacional. 

Devido ao seu formato sanfo- 
nado, o CartSo de Referenda do 
CP-500 & de f^cil manuseio, e 
qualquer informa^So pode ser ra- 
pidamente encontrada, cvitando 
consume de tempo e esfor^o. 



Enderepo das Edjtoras: 



Editora Campus - Rua JaF«ri, 35, CEP 20261, Riode Janeiro; 

Livros T6cnicos e Cientfficos Editora - Av. Churchil, 94, 49 andar, 
CEP 20000, Rio de Janeiro; 

Editele - Editora T6cnica Elatr&nlca Ltda. - Rua Casa do Ator, 
1060, CEP 04546. Sao Paulo. 
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CP -iW a>LOR t A CIIAVF. I)F.^SA 
EVOLLitAO PESSfUI. F. PRORSSJOVAL. 





PORQli£? 
P0RQ[1E0 
CP400CUL0RE 
UM COMPLrTAlXJK 
PESSJALDE 
TBimiNTF.nk.M: 
1 Til. PARA A 
FA:MJL[ATODA,ODL\IM'aR(J. 

NA [[ORA DE SE Ur\liRTlE. HM 

rxmrni £ Muni> MALs Yyimty 

\A\H M tk^H'K. AlAVI !)EOFER£CFi( 
|i:H>:)S INEDfTDS. 1 LN]0> CCJM 
■j jnVSnCKS ANALDGttXfc DE .^.TA 
SF:\:^[BIIJIV^E. (^l K PEK>imiM MO- 
\1MENTAS ,VS L\UGENS EM TOUAS 
AS DTREgOK, MESMO NAHORA 
DE TRAaAl.l IMi E EShTI llM. ( J CP 4(W 
COLOR MllbTRA (» SEU UrK>,S6un: 
NELSlOttiA LVFANSJV'IL, PORTA PARA 
COMl'Ma^AD DE DADOS. SAffiA 
PAK.^ [MPRESifJRA, E QIA 6UM\ 
Smi>E£ COM IMACENS a.>U)RtDAS 

a>M0SEU(X>lSS()SAO 
BASTASSE. A pRtMjftCia AlNm OFE- 
m:E A ^iARANTlA DE QULEUDE 
DE Qi:iLM E LIDER NA TICNOLOGW 
DE COMPLTyXJRLS, EO PRE(,0 

MAIS a(:es^"EI. na CATKCORIA 

MMAFR,VlE-SE\<H:tNAO 
yllSEK CEiEClAK ATRASAIXJ AO a^- 
n RO . COMPRE SEU CP 400 COLOR 
IMEEHATAMENTE, 

E-MO^AO E iyrEL[(;feNCL\ Nl!M 
Egi:iPAME.V70SO. 
* .VUCROPRtJCE^SADOK; <^m COM 



}&TRLTl!JiAlNTlR.SADE 
1 ^ Brrs E OOCK I>E l-'REgLtVClA 
iJEATEI.bMHZ 
•POSSIIilUTAOLSODEATE 
9 CORES, EllLM IMA RESOLLgAO 
OKAHLJ^Si'PERIORA^iJOO 
P(]NTnS. 

• MEM6RlAROM:l6KlinES 
PAL^ SISTEMA OPERCfONAL E 
iNTERPRtTAIKJR B.4SIC 

• .MD1S>K3A RAM CP ^^)lH:OL.()R 
ESTA E>JS]^>Nn>;i. D] IXHSM0DGI)S; 

• M0mril6K: 
LKPANSJ\ELA 
ChKBITB. 

• MO[>aO<^X: 
ATEt>lK[5^TES 
S,HAM)(.i CSADO 

(.:0M DLsi^ums 
iDisptmva 

• 0(:P4(^K:oLuRuismE]iK 

CAHTUCEWJtS DE PR(K;R.\.VL^ COM 
MBri'BSDECAPACID^lE. 

m vm\myi o camga-mlsto 

KSTAXTANEOUEJOCjOS. 
liNGlAGLNSE APUaTlVX>SCOM[J: 
HANa> DE UA1)0S, PEASTUlA-S 
DECALCLM>, EDFIORESDETEXTOS, 
,\PUt:ATIV(»snNAN(:ElKOS, 
APLEr.ATI\'rys C^R.\fICOS. ETC. 
• MjA SERIAL RS 232 CQl'E 
PER.\tfTE COMUHCAgAO DE [)ADOS 
AllM DO yL"E, ATRASlS DESTA 
PORTA. V(K,t PODECONEa.^R 





gUAljQi'ES IMPRESStJRA SERIAL 
OL ATE MESMO 

FOKM.ARrMA 
HEDEDETRAliA 
LHOCOM 
OLTR0SM[CkO> 

• PORTA PAR^ 
tiRAVAlKJRCA.^ 
SH'E COM GRAVAtAO E mHjUA 
DEALTAVELOOErtDE 

• SaIEiAS f.iMA T\' EM CORES E MONI- 
TOR PROEISSH INAL . 

• DLAS ENTlLyjAS PARA lOftTCKS 
ANAa/KllCO.sgUHOl-'EttEtBl 
INFlNrTAS P[iiS[(;OES NA TELA. 
ENy UANIXt UlTROS TEM ^WENTE 
8DIRE0ES 

• A.MPi.^ RinijoTEa m sofh^are 

jADLSE*[)NE\a. 
•ALLMENTAgAO; 1 10^220 TOLTS. 

CR400 

MlCR0C0MPU7ADOR=COiOR 

VEL^. TESTE E£.:o\SS^RJ:. 
SEU C"P^l.J!■| COLOR Ni& MAG.^ZtNES 
E RB'LVUEDORES PR0L6CJCA. 

■■■ PROUDGICA 




QUEM TEM UM.TEM FUTURO. 



MICRO SISTEMAS, fevereiro/85 



Apresentamos o 

TK 20001 

Be rada o programa 

mais famoso 

do munda 

De hoje em dianie nenhuma 
empresa, por menor que seja, pode 

dispensar o TK 2Q00 II. Por que? 

novo TK 2O0O II roda o 
Muliicatc:a versao Microsoft do 
Visicalc" Q programa mais famoso em 
todo Q mundo, |p 

Isio significa que. com eia voc§ 
control a esioques, custos. contas a • 



pagan faz sua programacan financeira. 
efetua a foiha de pagamenios e 
adminis^ra minuto a mmm as suas 
aiividades. 

Delaihe importanie:onovo 
TK 2D0D II. com Mukicalc, pode 
intercamhiar planilhas com 
computadofos da linha Apple*. 

E, como todo business computer 




que se pfeza, cle lom teclado 
profissionaL aceiia monitor, diskette, 
improssora e j^ vem com interface. 

Alem de poder ser Itgado ao sou 
televisor (cores ou P&8I. oferecendo 
som e imagem da melhor qualidade. 

Porta nta peca logo uma 
demonstracao do novo TK 2000 II, nas 
uersnes 64K ou 1Z8K de memdria. 

A mais nova estrela do show 
business s6 espera por isto para 
estrear no seu neg(5cio. 

Preco de lancamemo* 1 128 K|: 
J Cr$ 2.449.850 

] /MICRODIGII/IL 

computadoFes pessoais 



Open for Business. 



€ 




* Stqena e ^haa^ senpi^^ititL 



